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8% DECLARATIONS 
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945 SHOW SLOT USAGE 
97 SLOTS _PCBVEC Compute occupation of PCB vector 
03 CB vector 
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L st 
CAN_DOUBLY LINKED_LIST Scan doubly Linked List 
DISPCAY_LOO ey CBUNT Routine for obkaside List “piepta s 
Convert Packets to Bytes and Pages 


SHOW L_USA 

POOL _NPAGEDYN’ Scan Nonpaged Dynamic Memory 

POOL =PAGEDYN Scan Paged Dynamic ere 

POOL _P RCALLREG Scan Process Allocation Region 

SCAN reiNGhy LINKED_LIST Scan memory-ordered List 

H ISPCAY_POOC Output Routine for Dynaaic fi Memory beanies 
AGEFIL les = Display Paging File Statist 

GereP DATA Gather page file contret ‘block data 

GET ~ DEV" NAME - Extract device name from UCB 

GET “FILE NAME - Translate File ID to File Name 
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; Holds 1/0 Data Base Mutex to determine paging device. 

: AUTHOR : Thomas S. Clark, Creation Date: 30-Jul-1980 

; MODIFIED BY: 

; v03-010 AEWOO02 Anne E. Warner 24-Jul-1984 
thenge, Packet atcocupper bound’ to be ‘LRP+80" instead 


0000 *LRP for the disp ay Large Packet (LRP) Lookaside 

4 List for the command SHOW MEMORY/POOL/FULL. 

000 v03-009 aEw0001 Anne E. Warner 24-May-1984 

0 Change call to SCAN_BAD_LIST to a SCMEXEC call to 
0000 stop the program from access violating when bad pages 

444 are found. 
090 v03-008 KPLO001 Peter Lieberwirth 5-Mar-1984 ; 
000 Change use of CONFREG to CONFREGL. Missed this reference in 


first pass. 


$8 1 «TITLE suousnener’ - SHOW MEMORY RESOURCES 
| 80 é IDENT ‘v04-000' 
4 ¢ FERRARA RAKE KEKE EET E KEW EAHAAE RARER HHTERAAAREHERAKKATHTeEKeKeKeKeKeeeeeeeenese 
3% e 
8000 § 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
| 0000 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
Boos S :* ALL RIGHTS RESERVED. * 
Py _ 
| 0000 QO ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
44 1 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0000 § 3* INCLUSICIN OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 3* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 4 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 5 ‘* TRANSFERRED. * 
4 w 
0000 $ :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 8 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
444 ; he CORPORATION. : 
0000 1 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 ¢ 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ‘ 
0000 3* * 
0000 4 ;* * 
0000 5 seeeeeeeeeeeeeeee eee deed kekekeeeeeteekekeeeeeeeeeeeeeeeeeeeeerenereneeeett 
P ses 
: ; FACILITY: SHOW COMMAND 
, ; ABSTRACT: 
94 $4 ¢ This image implements the SHOW MEMORY command option. 
444 ¢ ; ENVIRONMENT: 
0000 6 Runs in User, Exec and Kernel mode. Raises IPL to ASTDEL and MAILBOX. 
00 : Holds PGDYNMTX Mutex to collect paged pool statistics. 
9 
0 
; 
4 
5 
6 
7? 
8 
9 
0 
4 
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i$ MORY = SHOW MEMORY RESOURCES i ot at 9 $3: 43:23 VAX/VMS Macro v04-00 Page 
v04 4-SEP-19 1:21:44 CLIUTL.SRC tis SHOMEMORY .MAR; 1 

44 28 3 v03-007 SoP0001 d. Sopka 14 October 1983 

$ ; Replace shangmcratieg’ paging device name string extracted 

8 0; from UCB B, with ye returned by IOCSCVT_DEVNAM. 

44 e) : Few other minor cleanup modifications also made. 

000 63: v03=006 TCMO0002 Trudy C. Matthews 13-Apr-1983 

000 64 ; Preserve R2 across call to SCAN “BAD PAGES in bad pages memory 
0000 H ; display. Change default displacement length from “W to “L. 
000 67; vO3=005 TCM0001 Trudy C. Matthews 22-Feb-1983 

000 68 ; hao ‘number of pages "discarded during bootstrap memory test"’ 
4 8 ; to bad memory pages display. 
0000 71: v03-004 GASOC99 Gerry Smith 7=Jan-1983 

4444 4 3 Modify to run with new SHOW. 
0000 7%: vO3-003 JwHO117 ey 19-Nov-1982 

0000 ee Make SHOW PROCESS IMEMS Y fetta that the size of the 

0000 76; Process Allocation Region is now controlable via a 

0000 7s SYSGEN parameter. 

0900 78 ; 

3 v03-002 KDM0002 hleen D. Morse 28-Jun-1982 
o'4' ? : Added SIPLDEF, SSebEF. and SPRDEF. 


-- 
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Rei DECLARATIONS reat et 33:57:22 aati SRC JSHOMEMORY .MAR; 1 . 
| 
09 : -SBTTL DECLARATIONS 
: 3 INCLUDE FILES: 
0 9 
000 0 snocross 
000 91 SODBOEF DDB DEFINITIONS 
000 36 SDOVIDEF sSGETDVI REQUEST CODES 
000 g $F CBDEF 7FCB DEFINITIONS 
000 Gu SIPLDEF IPL DEFINITIONS 
000 95 SIRPDEF ;IRP DEFINITIONS 
000 96 SJPIDEF sSGETJPI REQUEST CODES 
0000 97 SNOTDEF ;ADAPTER TYPE CODES 
0000 98 SPCBDEF ;PROC CTL BLK DEFINITIONS 
0000 99 SPFLDEF ;PAGING FILE DEFINITIONS 
0000 100 SPFNDEF PFN DATABASE DEFINITIONS 
0000 8101 SPRDEF sPROCESSOR REGISTER ERS 
0000 196 SRPBOEF sRESTART PARAMETER BLOCK DEFS 
0000 10 SSSDEF :SYSTEM STATUS CODES 
0000 104 SUCBDEF ;UCB DEFINITIONS 
0000 105 SWCBDEF ;WCB DEFINITIONS 
0000 106 cross 
0000 107 
0000 108 ; 
0000 109 ; MACROS: 
0000 110; 
0000 «+111 
0000 a ; 
4444 i? 3 MACRO TO CALL SHOWSPRINT_MSG TO TYPE A LINE(S) 
0000 115 -MACRO TYPEMSG MESSAGEID,ARGLIST 
0000 113 IF B,ARGLIST 
0000 11 Pusu. #0 
0000 118 FF 
0000 119 PUSHAL G*ARGLIST 
0000 120 -ENDC 
0000 121 PUSHAL MESSAGEID 
0000 \$¢ CALLS #2,G*SHOWSWRITE_LINE 
0000 12 -ENDM TYPEMSG 
0000 126 
0000 125; 
i444 : $ ; EQUATED SYMBOLS: 
$009 128 ; LENGTHS FOR PAGING AND SWAP FILE NAMES 
$3881 
00000028 0000 131 SHOWSC_MEM_SHORT_NAME == 40 ; 40 characters for gingte-ine display 
0000004E 44 iP SHOWSC"MEM-LONG_RAME == 78 ; 78 characters for full display 
000 134 
00000001 $8 : ‘ EVENT_FLAG = 1 ; Event flag for SGETJPI use 
0000 137 ; 
0000 iy 3 BIT FIELD DEFINITIONS FOR QUALIFIER PRESENCE LONGWORD 
000 140 ° 


S MORY - SHOW MEMORY RESOURCES 15-SEP-1984 43:23 VAX/VMS Macro v04-00 P 
5002005 DECLARATIONS arse 8be $eiStize PANIWES Bacto yor OO man:1 2% 
00 141 _VIELD MEMORY, 0,<- 
| 128 <PHY *m>, = ; /PHYSICAL_MEMORY 
14 <SLOT..M>, * ; /SLOTS 
| 144 <POOL..M>.= ; /POOL 
| 38 its see ive 
000 148 oe _ . 
000 149 
000 150 ; Define offset into argument List for kernel mode procedure that 
B38 13) 3; scans fixed-size (lookaside) Lists. 
00000004 0000 138 XRPFL = 4 
0000 155 ; Define offsets into extended PFL control structure that exists for 
0000 128 3; each paging or swap file currently installed. 
0000 15 
0000 158 SDEFINI PFL 
0000 159 
00000024 0000 160 - = PFLSK_LENGTH 
St 183 SDEF PFL_W_PFL_INDEX PFL ind 
: i 
00000026 9036 168 “BLRW" 17 — 
0026 164 
0026 165 SOEF  PFL_W_FID : File ID 
0026 166 SDEF PFL_W_FID_NUM ; File ID - file number 
~uinees $058 183 SDEF ert W FID. SEQ File ID b 
aaa: OOSh 133 SDEF Haat FI. RVN oc ID Foes ae ne b 
0000002¢ DOgA 171 ot 3 e relative volume number 
00000018 003 178 PFL_S_DEVNAM = ot +8 ; Allow room for S-digit unit number 
002c 175 SDEF ee VNAM ; Space for .ASCIC device name 
00000044 opee 178 BRB COT S_DEVNAM 
00000044 Goce 178 PFL_K_EXT_LENGTH = . ; Define Length of extended PFL 
ire 180 SDEFEND 
0000 181 
B20 1 ¢ 3 
090 ! i 3; OWN STORAGE: 
0000 000 .= .PSECT SHOWSRODATA LONG, RD ,NOWRT , NOE XE 
O88 : 2; : Define CLI qualifier descriptors 
000 189 MEMORY _D_PHYS: 
43 49 53 59 48 50 00000008'010E0000° 000 190 sASCID /PHYSICAL_MEMORY/ 
59 S2 4F 4D 45 4D SF 4C 41 S43 
01 191 MEMORY_D_SLOTS: 
53 54 4F 4C 53 0000001F*010E0000" 0017 136 TASCID /SLOTS/ 
4 195 MEMORY_D_POOL: 
4C 4F 4F 50 0000002C‘'010E0000" 4 194 ASCID /POOL/ 
8 195 MEMORY dD. FILES: 
53 45 4C 49 46 00000038'010E0000° 00 196 “ASCID /FILES/ 


| 
| 


030 
4C 4C 55 46 00000045°010E0000° 330 


4C 4C 41 00000051'010E0000" 004 
0000 


00000000 


00000000 00000000 


00000018 
0000003C" 


00000020 
00000024 
00000028 
0000002C 
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00000030 

00000034 

00000038 

0000003C 

00000002 

00000044 

20 20 30 35 20 20 35 32 20 20 0 
30 20 35 3? 


00000058 
0000005¢ 
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MEMORY _D_FULL: 
TASCID 

MEMORY D_ALL: 
TASCID 


-PSECT 
- ALIGN 


LOCKED_CODE_ RANGE: 
ADBRESS 
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17360-1388 93:53:27 awn Macro V04-00 
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/FULL/ 
/ALL/ 
SHOWSRWDATA 
LONG 


4 BEGIN_LO 
ADDRESS END_LOCK 
MEMORY_L_BITLIS: 
“LONG 0 
HEADER_LIST: 
.LONG 0,0 
: MEMORY FAO ARGUMENT LIST 


SHOW MEM_PHY: 
MEM_MiB_1: 

~BLKL 

~ LONG 
NEM_PHY PAGES: 
MEM_FREE PAGES: 
MEM_USED_PAGES: 
MEM_MODF _PAGES: 

~BLKL 


MEM_BAD_LIST: 
MEM_BAD_PAGES: 


MEM_OTHER PAGES: 


MEM_BOOT_PAGES: 
TBLKL 


MEM_MB_DESC: 
- LONG 


LOCAL MEMORY : 
SHARED _MEMORY : 
-BLKL 


1 
MEM_MB_DESC 
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LONG ,RD WRT ,NOEXE 


00 25 50 75 / 


1 


ove 
1 


LOCATION COUNTER BACK TO LONGWORD 


Range of code that executes 
; above ASTDEL 


QUALIFIER BIT LIST 


TIME/DATE TO FORCE CURRENT TIME/DATE 


SPACE FOR PHYSICAL COUNT IN MB (INTEGER) 
DESCRIPTOR FOR FRACTIONAL MB COUNT 


SPACE FOR COUNT OF PHYSICAL PAGES 
SPACE FOR COUNT OF FREE PAGES 
SPACE FOR COUNT OF PAGES IN USE 
SPACE FOR COUNT OF MODIFIED PAGES 


SPACE 
SPACE 
COUNT 
PAGES 


FOR SIZE OF BAD PAGE LIST 

FOR COUNT OF BAD PAGES 

OF OTHER PAGES ON BAD PAGE LIST 
DISCARDED DURING BOOTSTRAP 


DESCRIPTOR FOR FRACTIONAL PART 
OF COUNT IN MB 
FRACTIONS 


TOTAL AMOUNT OF LOCAL MEMORY 
TOTAL AMOUNT OF MULTIPORT MEMORY 
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04 DECLARATIONS &-SEP-19 21:44 CLIUTL. SRE REIS SHOMEMORY .MAR; 1 (1) 
oe 56 3 LAST PARAGRAPH FAO ARGUMENT LISTS 
se 588 
SC 26 PARA_VMS: 
| 00000060 2 2 -BLKL 1 ; SPACE FOR SIZE OF VMS 
| 06 38 : 
06 60 ; SLOT FAO ARGUMENT LIST 
06 61; 
be 86 SHOW SLOTS LIST: 
368 64 SLOTS_TOTAC: 
00000064 06 65 LKL 1 ; SPACE FOR TOTAL # OF SLOTS 
064 98 SLOTS_ FREE: 
00000068 0064 6 \ oa ; SPACE FOR # OF FREE SLOTS 
4 68 SLOTS_RES: 
0000006C 006 69 BLK 1 ; SPACE FOR # OF RESIDENT SLOTS 
06C 70 SLOTS_NONRES: 
00000070 s35 4 -BLKL 1 ; SPACE FOR # OF ‘'NON-RESIDENT'’ SLOTS 
BR 78 73 ; FAO argument List for variable sized pool displays 
0070 75 SHOW FOO. LIST: 
0070 6 POOL —NAME = 
00000074 0070 7 -BLK ; ADDRESS OF STRING DESCRIPTOR OF AREA 
0074 78 SHOW _POOL ST 2. 
0074 79 POOL"SIZE? 
00000078 0074 80 -BLKL 1 ; ADDRESS OF DESCRIPTOR OF SIZE PARAMETER 
po78 81 SHOW_POOL_LIST3: 
007 86 SHOW_POOL_LIST4 
0078 83 POOL_TOTAC: 
0000007C 0078 He -BLKL 1 ; SPACE FOR TOTAL SIZE OF POOL IN BYTES 
007C 5 POOL TOTAL PAGES; 
00000080 007C¢ $6 ; SPACE FOR TOTAL SIZE OF POOL IN PAGES 
0080 SHOW _POOL er TSTS: 
0080 88 POOL_FREE? 
00000084 0080 89 -BLKL ; SPACE FOR FREE BYTES IN POOL 
0084 90 POOL_ INUSE : 
00000088 0084 91 ; SPACE FOR BYTES IN USE IN POOL 
0088 38 SHOW _POOL LIST6: 
+4 93 POOL_MAX BLOCK: 
0000008C 008 94 ; SIZE OF LARGEST BLOCK IN POOL 
08C 95 POOL MIN. “BLOCK: 
00000090 45 38 : SIZE OF SMALLEST BLOCK IN POOL 
97 SHOW_ POOL LIST?: 
090 98 POOL-FREE- COUNT: 
00000094 0090 99 ~BLKL ; COUNT OF NUMBER OF HOLES IN POOL 
094 00 POOL _FREE LEQU_ 52: 
00000098 Spe t BLK ; COUNT OF HOLES 32 BYTES OR SMALLER 
b 03 ; FAO parameter List for fixed-size (lookaside) List displays 
09 05 SHOW _LOOK_LIST: 
09 SHOW- LOOK. LISTS: 
9 SHOW-LOOK"LIST4: 
9 3 LOOK~ “tists NAME: , : : 
0000009¢ 9 -BLKL 1 ; Descriptor for name of lookaside List 
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$s MORY = SHOW MEM 
v04= DECLARATIO 
9C¢ 
9¢ 
000000A8 i 
A 
QO0000AC 1, 
00000080 at 
8 
00000084 080 
pee 
00000088 B4 
nt} 
08 
000000BC 0088 
OBC 
000000C0 008C 
00C0 
00C0 
000000C4 00C0 
00C4 
00C4 
00000001 00C4 
o00000CC 00C8 
OOCC 
OOCC 
00cCc 
OOcc 
00cc 
o0cc 
000000D0 o0cc 
00000004 0000 
000000D8 0004 
it 
00D 
0008 
00000000 
000 
67 61 70 GE 6F 4E g099008"9 106 9000" 000 
40 $3 63 69 6D 61 6E 79 44 20 64 6 OOE 
0 20 20 20 20 20 79 72 6F 6D 65 ie 
0 64 65 67 61 0 op0000e9 "91060000" 0 ; 
6F 6D 65 4D $8 63 69 6D 61 33 944 00 
20 20 20 20 20 20 20 20 20 79 72 Bzn 
4A 
73 65 63 6F re 50 090008 g "01050000" OA 
65 4D $ 63 6 $8 61 6E 79 44 058 
20 20 61 65 72 41 20 79 72 6F 6D se4 
OF 
73 65 74 79 62 00000077'010E0000° Det 


ORY RESOURCES 
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15-SEP-1984 23: 
raat) Pa 
SHOW_LO 
LOOK“LI 

0 


1 
LOOK FREE ie 


SHOW_LOOK_LIST6: 
LOOK_INUSE COUNT: 


-BCKL 1 
LOOK INUSE BYTES: 


~BCKL 
SHOW_LOOK_LIST7: 
LOOK"SIZE-DESC: 


“  BLKL 
LOOK_BLOCK SIZE: 
SHOW_LOOK LISTS: 
LOOK_BLOCR_MIN: 
~BCKL 
LOOK_CMKRNL_ARGLIST: 
LONG 1 
-BLKL 1 
; The next three longwords are used to P 
3 initial and maximum sizes of each loo 
3; output routine. 


LOOK_SIZE_ARRAY: 
-BLKL 1 


3; Text descriptors that describe each po 
-PSECT SHOWSMSG_TEXT 
NPAGEDYN_DESC: 


-ASCID \Nonpaged Dynamic Memory 


PAGEDYN_DESC: 
-ASCID \Paged Dynamic Memory 


PRCALLREG DESC: 


43:23 pex(ves Macro V04-00 Page 
21:46 CCLIUTL.SRCJSHOMEMORY .MAR; 1 


; Size of List in packets, bytes, pages 


3; Number of free packets 
3; Number of free bytes 


; Number of packets being used 
; Number of bytes in use 


; Descriptor of parameter for block size 
; Size of blocks in List 

; Lower Limit on blocks allocated 

; from this List 


: A single parameter that contains 
; the address of the Listhead 


ass information related to the 
aside List into the common 


3 bever ipter for parameter name 
: Initial size of List 
3; Maximum size of List 


rtion of dynamic memory 


BYTE ,RD,.NOWRT ,NOEXE 


\ 


-ASCID \Process Dynamic Memory Area \ 


BYTES_SIZE_ DESC: 
-ASCID \bytes\ 


7 
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4 
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7¢ 61 PAGEDYN_SIZE_DESC: 
59 44 45 47 41 50 eres eee i #8} “.ASCID \PAGEDYN\ 
0 5 3 SRP_NAME_DESC 
50 52 53 00000093'010E0000" 00 : se ~""“TASCID \SRP\ 
96 67 SRPLIST_DESC: 
0 6C 6C 61 6D 53 0000009E*010E0000" a38 68 “.ASCID \Small Packet (SRP)\ 
$9 $6 $5 $3 $B 33 $2°RR°2E "23 °EN0R8 OAs , se gi Pata 
0 SRP_SIZE_DESC: 
5A 49 53 50 52 53 Geneodes "or cEseR9" deo ik is TASCID \SRPSIZE\ 
O0BF 3 
boar 73 IRP_NAME_DESC: 
50 52 49 000000C7'010E0000' gf re sASCID \IRP\ 
OCA id: IRPLIST_DESC: 
65 52 20 GF 2F 49 g90p00p8"9105 9000" OCA 7 eASCID \I/0 Request Packet (IRP)\ 
74 65 6B 63 61 50 20 74 73 65 75 71 00D8 
29 50 52 49 28 20 O0E4 
OOEA 78 
OOEA 379 IRP_SIZE_DESC: 
64 65 78 69 66 000000F 2°010E0000' it 30 “ASCID \fixed\ 
SOF? 8¢ LRP_NAME_DESC: 
50 52 4C OO00000FF*010E0000' Ts 7? sASCID \LRP\ 
010 85 LRPLIST_DESC: 
20 65 67 72 61 4C 0000010A"010E0000° 319 86 -ASCID \Large Packet (LRP)\ 
29 50 52 4C 28 20 74 65 6B 63 61 50 mie a7 
Brie 388 LRP_SIZE_DESC: 
5A 49 53 50 52 4C 90000124" 0106 9000" 11¢ 89 ~ASCID \LRPSIZE + 80\ 
8 20 2B 20 4 oieA 
0130 90 
b1%6 91; ’ 
4H 4 38 3; Text descriptors for the output of SHOW MEMORY 
0130 % 
130 395 SHOWS_MEM_HEAD1: 
$0 $0 $9 20 20 $8 00000138°010E0000' 130 96 -ASCID \ System Memory Resources on !%D\ 
4 36 $9 0 20 ee 20 20 20 ee 13E 
65 52 20 79 gf 6D 65 4D ? 6D § 14A 
21 20 6E€ 6F 20 73 65 63 72 of ie 136 
164 397 SHOWS_MEM_MEMO1: 
73 79 68 50 2F 21 98098 166 "0106 00° 196 98 -ASCID \!/Physical Memory Usage (pages): Total Free In Use 
$0 79 r¢ 6F $0 5 4D 2 oc 61 § 9 0172 
65 § 61 70 3 1 5 OI7E 
6C 61 746 6F 54 0 20 A 29 H 
65 $3 3 6 20 20 . 1 $ 
65 73 55 20 6E 49 1A 
64 65 69 66 69 64 6F 4D 0 1AE 
1BA 399 SHOWS_MEM_MEMO2: 
6E 69 61 4D 20 20 000001C2°010E0000" O1BA 400 -ASCID \) Main Memory !10<(!UL.!ASMb) !> '7UL '7UL '7UL 
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SFB 474 SHOWS_MEM_PAGE_FULL4: 
77 53 0 20 9 0000 AQ3' 105 000° O9F 475 «ASCID™ \ Swap Usage (processes) !7UL Paging Usage (processes) !. 
ie 70 61 61 OA0 
SEE EEEEEELEERS 
70 28 65 61 3 ; 67 6€ nep 
20 20 $5 29 % 65 7 : 8 $3 oF 3 A359 
” _- Ao 476 SHOWS_MEM_PAGE_FULL5 
53 41 21 20 20 00000A51'010E0000" 0A49 299 “  ASCID™ \SAS\ 
AS6 = 478 
4 | 479 
at * cB} «PSECT SHOWSRWDATA LONG,RD,WRT ,NOEXE 
6008 4 ¢ : PAGING FILE FAO ARGUMENT LIST 
it 48 
00D8 484 SHOW_PAGE_LIST: 
OOOOOIFF* 0008 rt HH . 4th FILE_NAME_DESC ; DESCRIPTOR FOR FILENAME 
OODC 4 § SHOW_PAGE_LIST2: 
OODC 487 PAGE_FREE: 
QOOOO0EO OODC 488 -BLKL 1 ; SPACE FOR NUMBER OF FREE PAGES 
Boep 489 PAGE_USED: 
OOOO00ES Q0E0 490 -BLKL ; SPACE FOR NUMBER OF PAGES IN USE 
QOES 491 SHOW_PAGE LISTS: 
O0E4 49¢ PAGE TOTAL: 
QOOO00DES O0E4 49 ~BLKL 1 ; SPACE FOR SIZE OF PAGING FILE 
Q0E8 494 PAGE_PFL_INDEX: 
OQOOOOOEC O0E8 495 ° 3; PAGE/SWAP FILE INDEX 
QOEC 496 SHOW_PAGE_LIST4: 
OOEC 497 PAGE_FULL_SWAP_COUNT: 
OOOO00FO OOEC 498 -BL 1 ; COUNT OF PROCESSES SWAPPING TO FILE 
OOFO 499 PAGE_FULL_PAGING COUNT: 
O00000F4 OOFO 500 . ; COUNT OF PROCESSES PAGING TO FILE 
O0F4 501 SHOW_PAGE_LISTS: 
OOF4 288 PAGE_ FLAG: 
00000A56' aor 27 - ADDRESS SWAP_INDIC_DESC ; DESCRIPTOR FOR PAGING INDICATOR 
OOF8 505 ; 
Bore 208 A FILENAME SECTION 
OOF 07 ; 
OOF8 508 
Bore 509 DEVICE_NAME DESC: ; Descriptor for device name passed 
00000100 ‘7 319 ~BLRL 2 ; to LIBSFID_TO_NAME and S$GETDVI 
000000F F 18 \¢ FILE _NAME_SIZE = 255 
10 13 FILE_NAME_ADBR: 
QOOOO1FF 01 14 -BLKB) FILE_NAME_SIZE 
1FF 15 FILE_NAME DESC: ; Descriptor for returned filename 
OOOOOOFF OFF ¢ . FILE_NAME_SIZE ; from LIBSFID_TO_NAME routine 
00000100° Os ' - ADDRESS FILE_NAME_ADDR ; and passed to output routines 
00000040 $F 15 DEVICE _NAME_SIZE = 64 ; Alternate output buffer for 
oF 0 DEVICE_NAME ADDR: ; S$GETDVI. Contents used if no 
00000247 of ; ~BLRB DEVICE_NAME_SIZE ; LOGVOLNAM returned. 
47 
47 4 SCRATCH_DESC: 3; Seratch string descriptor 
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~BLKL 2 ; 


; SFAO, SGETDVI, and STRALOG. 
RETURN_LENGTH: 
~BLKL 


; Static pieces of default file name 


DEFAULT _DIRECTORY NAME: 3 
eASCID = /SYSEXEJ/ ’ 


DEFAULT_FILE_NAME : 
ASCID /FILE.SYS/ 


~ ALIGN 
PFL_TABLE_SIZE: 
~BLKL 
PFL_TABLE_ADODR: 
eBLKL 
SWAP_FILE COUNT: 
~BLKL 
PAGE_FILE COUNT: 
~BLKL 
SWAP_FILE TABLE: 
PAGE_FILE TABLE: 
~BLKL 


LONG ; 


os a —— — — ae 
>. 


; Text descriptors that distinguish files 
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used by SFAO and STRNLOG 


3 space for returned length from LIBSFID_TO_NAME routine. Also used by 


Peyiice name is loaded by $GETDVI 
: are loaded dynamicaily 


First 4 characters may become 
either ‘PAGE’ or ‘‘SWAP*' 
Location counter back to longword 


Size of scratch area 
Address of scratch area for PFLs 


; Maximum number of swap files (SWPFILCNT) 


Maximum number of paging files (PAGFILCNT) 
Address of swap file usage a 
(PAGFILCNT + SWPFILCNT entries long) 
Address of pagin file usage array 
(PAGFILCNT + SWPFILCNT entries long) 


that are used for paging 


; and swapping from files used only for swapping. 


-PSECT SHOWSMSG_TEXT 
SWAP_INDIC DESC: 


BYTE RD .NOWR? ,NOEXE 


-ASCID /This file is used exclusively for swapping./ 


PAGE _INDIC DESC: 


-ASCID /This file can be used for either paging or swapping./ 


~-PSECT SHOWSRWDATA 


LONG ,RD,WRT ,NOEXE 


; Data area for call to SGETJPI to retrieve page and swap file data 


PAGE_FILE LOC: 
PAGE _FILE_INDEX = PAGE_FILE_LOC + 3 


; Paging file address 
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7 
20 f agua he $ file locati 
. ; Swa e location 
G5088885 HERE 78 sunnsriudltiber ! sur.ruussoc +s? SM 
94 “ GETJPI_STATUS: 
0000029¢ oe a -BLKQ «1 ; Status block for asynchronous $GETJPI 
36 0 PID: 
FFEFFEFF : 1 «LONG 1 ; Wild card PID for SGETJPI 
- : z Argument List for call to LIBSFID_TO_NAME 
A 5 FID_TO_NAME _ARG_LIST: 
A $ ° 4 ; Argument count 
FB" O2A4 - ADDRESS DEVICE_NAME_DESC ; Descriptor for device name 
ne : FID_TO_NAME FID_ADDR: 
445 See A ~BLEL . : Space for FID address 
1FF & ADDRESS FILE_NAME DESC ; File name descriptor 
24F* + 4 - ADDRESS RETURN_LENGTH ; File name Length goes here 
4 38 ; This FAO List is required to convert the unit number to an unsigned 
BS 94 ; decimal integer. The unit number itself is stored in the $FAO 
BS 95 ; argument List at execution time but we must reserve space for it 
+ 38 3; at assembly time so that the SFAO argument is the correct Length. 
BS 238 FAO_LIST: 
B $FAO CTRSTR=FAO_ CONTROL_STRING,= 
600 OUTLEN=RETORN_LENGTH,= 


90000000 
FF 
69000106" 
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OUTBUF =SCRATCA_DESC,- 
P1=0 


-PSECT SHOWSRODATA LONG, RD ,NOWRT ,NOEXE 
JPI_LITEM_LIST: 
WORD 4 ; Destination is a longword 
«WORD JPIS_PAGFILLOC ; Request paging file address 
- ADDRESS PAGE FILE_LOC ; Store result here 
- LONG 0 ; Do not return Length 
- WORD & ; Destination is a longword 
- WORD JPIS_SWPFILLOC ; Request swap file location 
- ADDRESS pee” MEA ; Store result here 
- LONG ; Do not return Length 
- LONG 0 ; End of SGETJPI request List 
GETJPI_LIST: 
SGETJPI EFN=EVENT FLAG,=- 
PIDADR=P16,- 
ITMLST=JP1_ITEM_LIST,= 
1OSB=GETJPT_STATUS 
DVI_ITEM_LIST: 
~ WORD cite ae SIZE ‘ 
«WORD DVIS"LOGVOLNAM ; Request log‘cal volume name 
- ADDRESS FILE_NAME_ADDR ; Store string result here 


-——— 


———_----- - > ee —_ 


v0s DECLARATION 


OOOOOTFF* 


oll 


00000000 


57 55 21 00000008'010E0000" 


4F 56 24 53 59 53 0000006 3°910E 9098" 


| scihionbedounenpmneaniiieninn 


pond RESOURCES 


- ADDRESS 
«WORD 
«WORD 
«ADDRESS 
- ADDRESS 
- LONG 


GETDVI ot St toy , 


eeeeeeosces * 
woo w 


Ht 
64 

$8 FAO_CONTROL | STRING: 
G44 ASTID 

646 TOPSYS_DESC: 

64 .ASCID 

64 

$¢9 TRNLOG UST 

650 $TRN 

651 

63¢ 

65 

654 
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RSEP=19Be 88:37:22 LECLUTE. SRESSuOmenony mans °° (4, 


4-SEP-1 + CLIUTL. SRC IJSHOME 
FILE_NAME_DESC ; and size here 


DEVICE_NAME SIZE 

VIS_DEVNAM™ : Request lo ical volume name 
evite “Nene ADDR’; Store string result here 
ETURN-LENGTH ; and size here 


; End of SGETDVI request List 


EFN=EVENT_FLAG,- 
DE vnaned DEVICE 1 


DESC,- 
ITMLST=DVI_ITEM_LIST 


$ 
/tUW/ 


/SYSSTOPSYS/ 


LOGNAM=TOPSYS_DESC,- 
RSLLEN=RE TURN LENGTH, 
RSLBUF=SCRATCA -DESC,= 

DSBMSK=<*B110>" ; Only search system name table 


00000008 ' Fee nad poorer Ot 
7°EF 
00000008" ae i H 
f 
vooo00ge e200" ge Oi 
7 
00000008 * EF o000g000°E? Ot 
EF 


0000003D* 
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MORY Show System Memory Resources 4-SEP- 
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-SBTTL SHOWSMEMORY Show System Memory Resources 


+ 
Functional Description: 


This routine retrieves information » pares various system resources, 
formats and prints it on SYSSOUTPU 


CALLS 


None 


Calling Sequence: 


#0, SHOWSMEMORY 


The routine is ectuelly called by the CLI — a result of 
parsing parameter MEMORY on the SHOW comman 


Input Parameters: 


Implicit Input: 


Qualifiers specified on the SHOW MEMORY command 


None 


Output Parameters: 


Implicit Output: 


Memory resource information is displayed on SYSSOUTPUT. 


SS$_NORMAL 
SSS_LKWSETFUL 


-PSECT 
- ENTRY 
PUSHAL 
CALLS 
INSV 

PUSHAL 
CALLS 
INSV 


PUSHAL 


PUSHAL 


Completion Codes: 


Normal completion 
Error in locking data for elevated IPL 


SHOWSCODE BYTE,RD,NOWRT EXE 

SHOWSMEMORY ,0 ; SHOW MEMORY resources routine 

MEMORY_D pers. ; /PHYSICAL_MEMORY 

#1, CLISPRESEN 
RO. #MEMORY_V NPHYS #1 MEMORY L_BITLIS 
" MORY_D SLOTS ; /SLOTS 


-CLISPRESE 
RO: #REMORY_ v NSLOT, #1, MEMORY _L_BITLIS 


ancl ; /POOL 
’ OP ISPRESE 
0; #MEMORY NPOOL, #1,MEMORY_L_BITLIS 
wt DBF ILES ; /FILES 
s Or TSPR ESENT 
RO; SRERORY -V_FILE.#1,MEMORY_L_BITLIS 


MEMORY_D_FULL > /FULL 


a 


<a 


F 


. 


5 MORY - MEMORY RESOURCES 15=SEP=1 7:43:23 VAX/VMS Macro v04-00 Pa 
v04 vee tt, S MORY Show System Memory Resources 2786-1382 $3 7:21:44 (CCLIUTL. SR tis SHOMEMORY .MAR; 1 - 
| 90000000"EF 91 13 CA 

, LLS #1,CLISPRESENT 
| 00000008 ‘EF 5 5 4 Hi INSV RO, #MEMORY_V_FULL,#1,MEMORY_L_BITLIS 
1 
oo000b00"eF > 91 i$ PUSHAL a MORY 3; /ALL 
6 18 CALLS aio CLISPRES NT 
) i) a BLBC : Branch if /ALL not set 
00000008°EF OF Q 721 BISL2 #<MEMORY_M_PHYS!- 
7 ; MEMORY-M-SLOTi- 
EB: MEMO OL!- 
7 f 4 MEMORY _MFILE= 
4 5 >, MEMORY _C_BITLIS ; Set all bits except /FULL 
50  00000008'EF 1 7 7 $ 5$: BICL3 #MEMORY_M_FULL,MEMORY_L_BITLIS,RO ; Anything other than /FULL? 
DOBF 867 8 BNEQ 10$ : Branch ita any other qualifier present 
00000008 ‘ EF F 7 MOVL #<MEMORY_M_PHYS!- ; Default is these four displays 
730 MEMORY-M~SLOT i= 
731 MEMOR A “POOL ! = 
7 ; MEMORY M FILE- 
, f z > MEMORY C_BITLIS 3 Set all bits except /FULL 
> 4 5 ; Lock down code that will be accessed at elevated IPL. 
0 7 $ 10$: SLKWSET_S LOCKED_CODE RANGE ; Lock code in working set 
74 50 OA9 7 : BLBC ~RO,90$ ; Exit if error occurred 
OAC 7 ; Will be unlocked by image rundown 
Spat oe ; Print header Line for all displays 
Boac rg TYPEMSG SHOWS _MEM_HEAD1,HEADER_LIST 
bat 744 : Show the information based on ie actual or implied setting of each 
per 2 3; qualifier bit in the control mask. 
07 00000008‘ EF 00. =«—€E1 OBF is BBC #MEMORY V_PHYS ,MEMORY_L_BITLIS,20$ 3; /PHYSICAL_MEMORY 
00000121 °EF FB OOC7 748 CALLS #0,MEMORY™ > Print physical aqnery usage 
07 OB EF 1 €1 OOCE 749 20$: BBC #MEMORY_V_SLOT,MEMORY_L AITLIS, 30$ ; s 
*EF FB D660=— 750 CALLS #0,SL Print slot us age 
OE ‘EF 3 €1 43 Pt 30$: BBC #MEMORY V_POOL, wen zp AITLIS.4 40$ /POOL 
"EF FB OOE 7 ¢ CALLS #0,LOOKASTDE Print fixed-size pool usage 
DB‘ EF +6 BES 75 CALLS POOL Print yor eel gag ized poet yee sage 
07 60000008 EF 0 E1 OOF$ 754 408: BBC #MEMORY V_FILE, aecee " BITL i /PAGEFILE 
sales eB Bi 0 FB ore 755 CALLS #0,PAGEFICE t paging tite soge 
13 B'EF 00 €1 19 136 50$: BBC #MEMORY _V_PHYS MEMORY itis. : /PHYSICAL _MEMORY 
10A 7 TYPEMSG SHOuS MEM PARA, PARA "ONS: : brit bottom paragraph 
6 H 118 28 $08: MOVZ2WL #SS$ *AORMAL RO : Store status 
04 130 760 2—t—té<“‘«t:«éRRUT > and exit 
121 761 
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6 4 
MORY = SHOW MEMORY RESOURCES 15-SEP-1984 23:43:23 VAX/VMS Macro V04-00 Page 19 
Woe SHOW MEMORY USAGE 4-5 sat} 93:57:22 CLIUTL.SRCJSHOMEMORY .MAR; 1 - 
| 1 3 ~SBTTL SHOW MEMORY USAGE 
| 65 ; SHOW PHYSICAL MEMORY 
121 res ; 1 $ ROUTINE DISPLAYS INFORMATION ABOUT THE SYSTEM MEMORY. 
121 8 ; TOTAL NUMBER OF PAGES AVAILABLE TO THE SYSTEM IS DISPLAYED 
121 : ; BOTH AS A NUMBER OF PAGES IN APPROXIMATE MEGABYTES. THE 
121 : ; NUMBER OF PAGES ON THE MODIFIED AND FREE LIST ARE ALSO SHOWN. 
101 771: THE NUMBER OF PAGES IN USE BY BOTH THE SYSTEM AND USERS ARE § 
121 i : AND THE NUMBER OF PAGES ALWAYS IN USE BY THE SYSTEM IS DISPLAYED 
101-773: IN THE CONCLUDING PARAGRAPH. IF THERE SHOULD BE BAD MEMORY 
44 ; AN ADDITIONAL LINE IS MBRINTED GIVING THE NUMBER OF BAD PAGES. 
121 176 
121 777 MEMORY: 
001c 0121 ore -WORD “M<R2,R3,R4> ; Save some ror PR 
1 77 TYPEMSG SHOWS. MEM MEMO! PRINT HEADER 
1 re0 SCMEXEC_ ZE_M Calc ulate ecPF os cal memory size 
000000 over 90000000" GE DO 0141 =781 MOVL  ~G*SCHSG LFREECNTS REM ereé PAGES : OF FREE PAGES 
00000028 "EF "GF 60 14¢ 78¢ MOVL Ga scuser MF YCN T REM M_MODF PAGES : SE MODIFIED PAGES 
"GF QOOOOOIC’EF D1 0157 78 CMPL § MEM_PHY_PAGES,G*MMGSGL_PAYPGCNT ; NINIMIZE PHYSICAL PAGE 
18 0162 784 BLEGU 1087 COUNT WITH SYSGEN SPECIFIE 
QOOO00IC"EF  00000000'GF 00 164 785 MOVL.  G*MMGSGL_PHYPGCNT.MEM_PHY_PAGES ; PAGE couNT 
0000001C"EF 000000 Over ¢ 16 786 10$:  SUBL3 MEM_FREE~PAGES,MEM_PHY_PAGES ,MEM.USED_PAGES 
00000024 "EF B'EF C2 O17F 787 SUBL2 MEM_MODF_PAGES ,MEM_USED_PAGES GET # OF PAGES IN USE 
0000001C "EF t ¢ 184 788 SUBL3 G*PFNSGL“PHYPGCNT ,MEM_PAY_PAGES, BARA. VMS 
0000001C ‘EF FS bt 78 194 789 ASHL  #-11,MEM_PHY_PAGES,MEM_MB_1 ; CONVERT COUNT OF 
52  OO000001C'EF F7 + 7 143 790 ASHL_ #-9,MEM_PHY_PAGES,R2 : PHYSICAL PAGES TO 
53 14° EF C 180 791 MULL3) -MEM_MB_T,#47R3 : MEGABYTES 
3 ¢2 0188 79 SuBL R 
00000040°EF  00000044"EFS2 ODE 188 79 OVAL MEM MB Re TEXTCR2 .MEM_MB DESC +4 
1C 794 TY PEHSG SHOOS FEM _M *SHOO _MEM_ Tye alent 
52 00°GE DO O1DA 795 MOV G*EXESGL a3 a : GET abr o RPB 
4 ¢2 00 O181 79 MOVL RPBSL_BADPGS(R2) .R2 ¢ 1 OF BAD PAGES AT BOOT 
54 08 GF DO 0166 79 MOVL. G*SCHSGL FREECNT ichePr nc _BADPAGLST> R4 BAD PAGES AFTER BOOT 
0000002¢ ‘EF Ci O16D 798 ADDL3 4 R4,MER_BAD_LIST ; TOfAL BAD PAGE 
40. «1 IFS 799 BEQL : IF NONE SKIP THIS DISPLAY 
QOOOOOSC*EF  O000002ZC"EF C2 OIF 00 SUBL2 MEM_BAD_LIST, PARA. VMS ; DON'T COUNT BAD PAGES AS 
9 01 ; ALLOCATED TO VMs 
0 SCHEXEC_s $ ROUTIN = SCAN_BAD ; COUNT "'REALLY'’ BAD PAGES 
00000034"°EF 54 9000030" EF C3 1 0 SUB “HER BA BAD, PAGES. RE MER’ ASTER _PAGES'; STORE COUNT OF OTHER’ PAGES 
860000 ‘er 52 OO 1D 4 move pace : STORE # BAD PAGES AT BOOT 
4 805 TYPERSG Satuk Maa’ OnENO MEM_BAD_LIST ; THEN TELL THE USER 
04 z 06 208 RET 
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S MORY HOW MEMORY RESOURCES 15-SEP=1 63: ; yenives Macro v04-00 Pa 0 
Rivet $1 E_MEMORY Get Amount of coe Memor 27860-1382 33:57 fet iure. SRC JSHOMEMORY .MAR; 1 at if 


» SUBTITLE SIZE _MEMORY Get Amount of Physical Memory 


SIZE_MEMORY Get Amount of Physical Memory 
This routine uses the memory descriptors in the Restart Parameter Block 
to determine the amount of physical memory in use. A check is made to 
see if multiport memory should be counted as local memory. 
Calling sequence: 
CALLS #0,SIZE_MEMORY 
Input parameters: 
None 
Implicit Input: 
Memory descriptors in RPB 
Output parameters: 
LOCAL MEMORY Total memory in local memory controllers 
SHARED_MEMORY Total memory in multiport emmory controllers 
MEM_PHY_PAGES Teeet amount of physical memory in use by system 


This total does not include multiport memory 
being used as shared memory.) 


SIZE_MEMORY: 
091C “= WORD  “M<R2 3; Save some register 
50 00000000'G 00 0 MOVL grenréer’ “CONFREGL. RO ; Get address SFT TR/ adapter Sype. array 
51 00° dO MOVL md, XESGL- R : GET 
5 Boer C1 DE MOVAL PBSL _MEMDSC(R1), R2 : GET a Yr OF MEMORY DESCRIP | 
4'EF 04 CLRL LOCAL MEMORY : INIT PAGE COUNT 
Q0000058°EF 04 CLRL SHARED_MEMORY ; INIT PAGE COUNT 
62 OD 10$: TSTL (R2) : END OF MEMDSC LIST? 
| oa BEQL 40$ ; YES = GO PRINT INFO 
53 62 08 1 EF EXTZV sReesy ur ggrPess.. TR, (R2) ,R3 : GET TR NUMBER 
604 00 MOVL OpERs) ; CONVERT TO ADAPTER TYPE 
54 62 18 OO EF EXTZV onee Vv Beat, #MRPBSS_PAGCNT, (R2) RS ; GET PAGE COUNT 


: The following set of ass stone peate that all multiport memory adapter 
3 type codes are bounded by NDT$_MPMO and NDTS$_MPM5 and that no adapter 
3 type codes in this range soneclionn eintolen Other than multiport memory. 


ASSUME NDTS_MPMO LT NDTS_MPM1 
ASSUME NOTE: MPM] LT NDTS_MPM 
ASSUME NDTS"MPM2 LT NDTS_MPM 


PAAAAA AANA NASI Be Be Be Be BB AAA AAA AA A IRIS at at at tt 


MEAN CO OO NA UNE WI 0 OD NAME WIN 9 OD NIA NE WWI 9 OOD NO UNE WI - OOOO UE wh" 00 


40 8F 53 91 CMPB #NDTS_MPMO ; Is adapter number below MPM range 
a BLSSU : If so, this is local asters 
43 8F 3 °6C«@9 CMPB R aga : Is adapter number above MPA range 


I 
$ MORY = SHOW MEMORY RESOURCES 15-SEP-1984 23:43:23 YVAX/VMS Macro v04-00 P 
ive tt SIZE_MEMORY Get Amount of Physical Memor 4-SEP-1984 33:57:22 CLIUTL.SRCJSHOMEMORY .MAR; 1 pe é 


BGTR 208 ; If so, this is also local memory 
ADDL Be SHARED _MEMORY ; Otherwise, this is multiport memory 
BRB o$ : Go to end of loop 


ADDL RG LOCA. MEMORY ; This is local memory 
ADDL2 #RPBSC_MEMDSCSIZ,R2 ; Point to next memory descriptor 
BRB 108% ; and go back to top of loop 


1 
1) 


00000058 ' EF 5 


wr 
oo 
Cn 
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os a 


There are four cases that can occur here. 


Ft 
. 


There are no multiport memory controllers on the system. 


™~ 
© 


Multiport memory is being used as global shared memory. 


w 
. 


Multiport memory is petng used as local memory. This case is 
distinguished by RPBSV_USEMPM being set in the RPB copy of R5. 


Only multiport memory is being used as local memory. Any memory 
in local controllers is ignored. This is the multiprocessor 
configuration. This case is distinguished by RPBSV_USEMPM 
being set in the RPB copy of R5. 


#RPBSV_MPM,RPBSL_BOOTRS(R1),50$ ; Multiprocessor configuration? 
MOVL LOCAL MEMORY ,MEM PHY_PAGES ; Local memory is always counted 
C #RPBSU_USEMPM,RPBSL_BOOTR5(R1),60$ ; Also count shared menory? 
ADDL2 SHARED MEMORY .MEM_PAY_PAGES ; Add it in if using as local memory 
BRB 60$ 3; and return 


$: MOVL SHARED _MEMORY ,MEM_PHY_PAGES ; Only count shared memory 
$: MOVZ2WL #SS$_NORMAL ,RO i Indicate success 
RET ; and return 
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= SHOW MEMORY RESOURCES 15-SEP-1984 23:43:23 VAX/VMS Macro v04-00 P 2 
SCAN_BAD_LIST Scan Bad Page List arSEpr Shs S8idtsce LOCTUTE. SaeSSutmemoey.man:1 2% 2, 
4 99 - SUBTITLE SCAN_BAD_LIST Scan Bad Page List 
BD 
+4 SCAN_BAD_LIST Count pages on bad page List that are marked bad 
BD This routine Loots at all pages on the bad page List to distinguish those 
BD 5 pages that exhibit memory errors (are marked as bad) form those pages 


placed there due to an 1/0 error. 
Calling sequence: 
BSBW SCAN_BAD_LIST 
Input parameters: 
None 
Implicit Input: 
PFN data base Listheads 
Output parameter: 
MEM_BAD_PAGES Count of pages marked as bad 
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BD 
8D CAN_BAD_LIST: 
000¢ BD -WORD “M<R2,R3> ; Mask these registers 
53 D4 BF CLAL ; Initialize bad page counter 
50 00000008'GF oD C1 MOVL *<PFNSAL_HEAD+<4*PFNSC_BADPAGLST>>,RO ; Get first bad PFN 
29.—C1 c8 BEQL 0$ ; Zero implies none (shouldn't hepgen) 
51 ‘GF p00 CA MOVL G*PFNSAx_FLINK,R1 ; Forward Link arrey Listhead to 
OO00'GF 00 D1 MOVL G*PFNSAB_TYPE,R2 : PFN STATE array Listhead to R2 
02 6240 05 E1 0208 10$: BBC #PFNSV_BADPAG, (R2)(ROJ,20$ ; Is this page really bad? 
06 DD INCL R3 ; Count another bad page 
DF 208: PFN REFERENCE - 
DF MOVZWL <(RT)CROJ,RO>,- : Follow FLINK to next PFN 
OF LONG_OPCODE =MOVL .- 
DF IMAGE =SHOW_MEMORY 
§3 i 3 Fl BNEQ 10$ ; To top of loop if another PFN 
eoo0nese"Es > F3 30$: MOVL w EN _BAD_PAGES ; Store the number for output | 
0 O11 00 FA MOVL #i,R : Successful completion of routine 
04 4 RET 
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S MORY = SHOW MEMORY RESOURCES 15-SEP-1984 3 VAX/VMS Macro v04-00 Pa 23 
rivetirt SHOW SLOT USAGE 4-SEP=-1984 $3: $3: fi CLIUTL. SRE REIS SHOMEMORY .MAR; 1 = (1) 
: $3 F -SBTTL SHOW SLOT USAGE 
i of ; SHOW PROCESS AND BALANCE SLOT USAGE 
£ 308 ; THIS ROVT INE OT pg ta pronation ae Hy | Pa ia te AND BALANCE 
FE 9 ? 3 SLOTS. THE TOTA EACH sors SHOWN. THE NUMBER 
FE y 3 OF FREE SLOTS is DISPLAYED. y- & 49 tp in us Are ore ae INTO 
FE 9 ; 5 Two CATAGORIES: RESIDENT AND A NON-RESIDENT BALANCE 
FE 953; SLOT IS ONE FOR WHICH NOT ior thie LO FOCESSES WORKING SET IS 
4; 82¢ 3 RESIDENT (E. 6. SWAPPED BUT ARI TING FOR 1/0) 
FE : . 
FE 3$ SLOTS: 
0000 F 328 «WORD 0 : Save nothing 
: +44 TYPEMSG SHOWS_MEM_SLOT1 : Print header Line 
: 30) ; Show usage of PCB vector 
OF 96 SCMEXEC_S ROUTIN=SLOTS _PCBVEC ; Gather the PCB vector data 
if 44 TYPEMSG SHOWS _MEM_SLOT2, SHOW. SLOTS_LIST ; and print it 
: 3 ; Show balance slot usage 
1 968 SCMEXEC_S ROUTIN=SLOTS_BALANCE ; Gather the balance slot data 
A 0 rs 969 TYPEMSG SHOWS_MEM SLOTS, SHOW_ SLOTS_LIST ; and print it 
30 «#2010 «= s(035 970 MOVZWL #SS$_RORMAL RO 3 Load success status 
04 $328 44} RET : and return 


ees ! 


S MORY = SHOW MEMORY RESOURCES 15-SEP-1984 :43:23 VAX/VMS Macro v04-00 Pa 
rivet tt SLOTS_PCBVEC Compute occupation of PCB v 4=SEP-1984 93:33:23 CLIUTL.SRCISHOMEMORY .MAR; 1 = 
or8 » SUBTITLE SLOTS_PCBVEC Compute occupation of PCB vector 
76 34 
$7 3 SLOTS_PCBVEC Compute occupation of PCB vector 
7 38 : This routine determines the number of processes that occupy the PCB 
4 4 , 3; vector and the number of those processes that are currently resident. 
4 4 ¢ : Calling sequence: 
, 9 4 ; CALLS #0,SLOTS_PCBVEC 
3 : 6 ; Input parameter: 
37 4 § : SCHSGL_PCBVEC Pointer to PCB vector 
2 444 : Output parameters: 
3 99¢ : SLOTS_TOTAL Number of slots in the vector (MAXPROCESSCNT) 
0 2 238 ; SLOTS_FREE Number of unused slots in the vector 
337 338 : SLOTS_RES Number of slots that are occupied by processes 
§32) +44 3 that are resident (PCBSV_RES set in PCBS$L_STS) 
B32) 999 : SLOTS_NONRES Number of slots that are eceusted by processes 
57 1000 ; that are outswapped (PCBSV_RES set in PCBS$L_STS) 
BR 
0357 1003 ° 
0357 1004 SLOTS_PCBVEC: 
003c 0357 1005 -WORD “M<R2,R3,R4,R5> ; Save some cegiscers 
00000060" EF 00000000°GF 3C 0359 1006 MOVZWL G7SCHEGH PROCL IM, SLOTS_TOTAL ; GET TOTAL # OF SLOTS 
2 100 * GF C 0364 44 MOVZWL G*SCHSGW_PROCCNT,R 
98 C 8 68 1008 ADDL ag -Re ; INCLUDE NULL AND SWAPPER 
00000064 ‘EF 00000060 EF C 3ee 1009 SUBL R2,SLOTS_TOTAL ,SLOTS_FREE ; GET # OF FREE SLOTS 
3¢ 00000000°GF D0 0 7A 1010 MOVL  G*SCHSGL“PCBVEC,R2 > GET BASE ADDR OF PIX ARRAY 
5 4449 Bo ge $8 1011 MOVAL G*SCHS$GL~NULLPCB R3 ; SAVE NULL PCB 
55 "GF C 8 1sig MOVZWL G*SCHSGL~SWPPID,R5 3; GET SWAPPER’ 
gf 1) 38F 101 INCL RS 3; START WITH NEXT SLOT 
00000068 ' EF 55 OD $04 1014 MOVL R5,SLOTS_RES ; INITIALIZE COUNTS 
C'EF D4 0398 1015 CLRL = SLOT NORRES 
54 6245 00 9 1otg 10$: MOVL (R2)CR5),R4 ; GET PCB ADDRESS 
53 32 1 he 101 CMPL R4,R 3; IS THIS THE NULL PCB? 
6 13 O3A5 1018 BEQLU 308 : YES = IGNORE IT 
A? 1019 ASSUME PCBSV_RES EQ 0 
08 24 AQ €9 A7 1020 BLBC PCBSL_STS(R4) ,208 3; CHECK STATUS 
eeasenadl *4 06 a 9 1 anes ShOTS_RES 3; RESIDENT-BUMP COUNTER 
09000 .‘< 06 383 1 ‘ 20$: INCL SLOTS_NONRES : NONRESIDENT-BUMP COUNTER 
0 AG GA 1024 MOVZBL PCBSL_WSSWP+3(R4),RO ; GET SWAP FILE NUMBER 
D9 55 138 oft Pace 1025 30$ AOBLEG Ge SCHSGL MAXPIX.R5, 108 + LOOP FOR ALL PIX 
50 01 zt 1086 MOVZUL ASS “NORMAL ,R 
C9 1028 
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SLOTS_BALANCE : 
. WORD 
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ompute occupation of PCB 


» SUBTITLE 


SLOTS BALANCE 


Output parameters: 


SLOTS_ TOTAL 
SLOTS_FREE 
SLOTS_RES 


SLOTS_NONRES 


“M<R2 
MOVL G*SGN 
CLRL SLOTS 


SL 
CLRL SLOTS" NONRES 
MOVL G*SCHSGL_PCBVEC.R5 
MOVL G*PHVSGL_PIXBAS ,R2 


CLRL 
CVTWL © (R2)CR3I,R4 
BGTR 

INCL  SLOTS_FREE 
BRB 

MOVL 

ASSUME PCBSV_RES 
BLBC 

INCL 

BRB 

INCL SLOTS 


AOBLSS SLOTS 
MOV ZUL #SS$_RORMAL .RO 


SLOTS BALANCE 


Compute occupation of PCB vector 


This routine determines the number of processes that eee 
vector and the number of those processes that are currently resident. 


Calling sequence: 
CALLS #0,SLOTS_BALANCE 
Input parameters: 


SCHSGL_PCBVEC 


7 Pointer to PCB vector 
PHVSGL_PIXBAS 


Address of process index array associated with 
process header vector 


Number of balance slots .hat are occupied b 
that are resident (PCBSV_PHDRES set in PCBS 


Number of balance slots that are occupied b 
that are outswapped (PCBSV_PHDRES set in PC 
An outswapped process that still occupies a balance 
slot is a process whose process body is outswapped 
but whose process header is still resident. 


Save om 
IZE COUNTERS 


R5> 
SETCT,SLOTS_TOTAL 


SE 0 
E 


(R5)CR41,R4 


EQ 0 
PCBSL“STS(R4) , 30S 
SLOTS" RES 


_NONRES 
TOTAL,R3,10$ 


cro v04-00 
CJSHOMEMORY .MAR; 1 


Compute occupation of PCB vector 


y the PCB 


Number of balance slots (BALSETCNT) 
Number of unused blance slots 


Us 


e registers 
SLOTS 

ADDRS 

ARRAY 


NO = COUNT IT AS FREE 
AND CONT 
GET PCB ADDRESS 


1S PROCESS RESIDENT? 
YES-COUNT IT AS SUCH 


NO-COUNT AS NON-RES 
LOOP FOR ALL PIX 


a 


Baprsissee® 
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Disster Routine for Lookesié ‘-sep-ione 58:37:02 LeetUTe eke iewieemoey anes OM? 98, 


» SUBTITLE LOOKASIDE = Display Routine for Lookaside Lists 


= SHOW 
LOOKAS] 


Functional Description: 
This routine displays nonpaged pool statistics for fixed-size block 
Lists. These include the small packet (SRP) lookaside List, the I/0 
request packet (IRP) List, and the Large packet (LRP) lookaside List. 

Input Parameters: 

None 

; Implicit Input: 

Listheads for three lookaside Lists 


; Output Parameters: 


o ooo 

PRR RR RRR RRR RR PRR PRR RE - 
POPROPOROPOROPOROPOPOPONOPONOPOPOPORUNFUNITUNINUIND oO 
100 GD CO G9 CO GO CO CO G9 CO GOGO CDG ODCSCDCOCOCOCSCOCDCIOD «Mmm 


8 None 
ze Implicit Output: 
8 Three lookaside List displays are written to SYSSOUTPUT 
0428 
4 ; LOOKASIDE: 
000C 04 eWORD “M<R2,R3> ; Save some registers 
OF OOOOO008'EF 04 £0 042A BBS #MEMORY V_FULL MEMORY_L_BITLIS,10$ 3: $ 'p header in full display 

0432 TYPEMSG SHOWS_MEM~LOOK{ ; Print header Line 
441 : Get Hized=tongt® nonpaged pool statistics. Do small packet (SRP) 
ret 3; lookaside List first. 

000000C8 "EF 00000000 ' GF DE 0441 10$: MOVAL  G*IOCSGL_SRPFL,LOOK_CMKRNL_ARGLIST+XRPFL 3; Listhead address 
044C SCMKRNL_S = 3; Scan the List 
044¢ ROUT IN=LOOK_XRPLIST,- 
044C ARGLST=LOOK_CMKRNL_ARGLIST | 
45 00 AME Add an identifier 


00000098°EF  Q0000096"°EF SE F 
0000009C "EF tit Beer DO 046A 
2 000000 * GF 0 0475 
Q000000B8°EF 000000B0°EF E 4" 
QOOO00CO"EF 00000000'GF "1 
53 QOO0000CC*EF E 439 
00000088 ' EF 4 


MOVAW SRPLIST DEST, LOOK T_N 
MOVL G°1OC$GC_SRPCNT LOOK_LIST_SIZE 


MOVL R 
MOVAW  SRP_SIZE-DESC,LOOK SIZE DESC 
MOVL  G*IOCSGL“SRPMIN,LOOK_BLOCK_MIN 


MOVAL LOOK SIZE_ARRAY,R3 
MOVAW 


Get current List size 
Pass block size in R2 

SYSGEN parameter name for size 
Lower Limit for allocation | 


Address of auxiliary array 


a a ak tk ak a at a at = = St 4 Ft tt 8 ss = ss ss 8 2 2s Ss 1 ss ss a tt 


PELE FE AAIWIWIWIWIWIWIWIRININININININININING 4 2 MQOOOOOOCOCOOCOOOOOOOOOOWO® 


PWN 0 ODNOUNE WIN 9 ODNA UE WIN $9 OD NAME WIN $$ O OD NAUSEA S(O OODNAULS WOO 


63 E 049 SRP_RAME_DESC, (R3) > Descriptor for List name 
04 AS Q0000000'GF oD 4A MOVL G*SGNSGL-SRPCNT ,4(R3) : Initial list size 
08 AS 00000000' GF 4 GA MOVL G*SGNSGL~SRPCNTV,8(R3) ; Maximum list size | 
0118 re BSBW DISPLAY_COOK : Display SRP statistics 
re ; Gather statistics for 1/0 Request Packet (IRP) Lookaside List 
OOOOOOCB8*EF O0000000'GF DE 048 MOVAL G*IOCSGL_IRPFL,LOOK_CMKRNL_ARGLIST+XRPFL : Listhead address 
4BE SCMKRNL_S © 3; Scan the List 
4BE ROUTIN=LOOK_XRPLIST,- 
4B ARGLST=LOOK~CMKRNL_ARGLIST re 
00000098"EF  QOO000CA'EF 3E& 04D MOVAW IRPLIST_DESC,LOOK_CIST_NAME ; Add an identifier 


] 


om one  rre eee eer ceror eer err —_— —— -_ ———____——_ 


8 5 
MORY = SHOW MEMORY RESOURCES SEP=1984 23:43:23 cower Macre v04-00 P 27 
/ V04 LOOKASIDE = Display Routine for Lookasid ae sets 33:57 1:21:44 ftiute. SRC JSHOMEMORY .MAR; 1 yo (1) 
0000009C "EF DC 1145 MOVL G*1OCSGL_IRPCNT,L LIST_SIZE ; urrent list size 
gS Be ma 1423 MOVL #<ITRPSK => NG NoEXESCTAL CSRNMSK> koviccEneht ALConim ein R “Re 
; Pass block size 
pooner Er Hi 3 1146 MOVAW IRP Size. DESC ,LOOK SIZE_DESC : Descriptor for ‘ fo aeg 
CO°EF ) a Ne MOVL 6*10¢ GL- TRPM! N, LOOK BLOCK K_MIN ; Lower Limit for allocation 
5 11 MOVAL LOOK aiaee ARRAY ,R3 ; Address of auxiliary array 
6 1 MOVAW IRP_RAME_DESC, (R3) : Descriptor for list name 
o% A Dd 12 11 MOVL bec enscr Ca TRPCAT. 4iR3) ; Initial list size 
A 1A 1156 MOVL G-ScNscL~ IRPCNTV, 8(R3) ; Maximum List size 
1} 5 BSBw DISPLAY_COOK ; Display IRP statistics 
: 1 8 ; Finally, perform the same steps for the large packet (LRP) lookaside List 
QOOOOOCB*EF OO000000'GF odE 05 11 } MOVAL G*IOCSGL aL RPFL, LOOK_CMKRNL Ane. Ist ouaret 3 Listhead address 
; 1160 SCMKRNL_S ; Scan the List 
1161 “ROUT IN=LOOK _XRPLIST,= 
5 116¢ ARGLST=LOOK~CMKRNL_ARGLIST 
00000098 ‘EF 102°EF 3 54 116 MOVAW rats tH best LOOK_CIST_NAME ; Add an identifier 
0000009¢ "EF ‘GF «6D 346 1164 MOVL REENT LOOK_LIST_SIZE : Get current List size 
2 * GF 4 55 1165 MOVL g-focser-t PSIZ 3; Pass block size in R2 : 
seat ng BH 1IC*EF 3 560 1198 MOVAW gate “bese LOOK SIZE_DESC : Descriptor for "‘LRPSIZE + 64° 
CO'EF ‘GF =~ 28 HF MOVL aa te GL “LRPMIN, LOOK_BLOCK_MIN ; Lower Limit for allocation 
576 1168 MOVAL LOOK _SIZE_ARRAY,R3 ; Address of auxiliary array 
57D 1170 MOVAW LRP_RAME_DESC, (R3) : Descriptor for List name 
4 1171 MOVL G*SGNSGL_LRPCNT ,4(R3) ; Initial list size 
58¢ 1178 MOVL G*SGNSGL~ LRPCNTV, 8(R3) ; Maximum List size 
0037 238 W3 BSBW DISPLAY_COOK ; Display LRP statistics 
50 01 3¢ O597 1175 MOVZWL #SS$_NORMAL ,RO : Signal success 
04 Bean Bf RET ; and return 


| 
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ORY = SHOW MEMORY RESOURCES 15=SEP=1984 23:43:23 VAX/VMS Macro v04-00 Pa 
| ¥O6 POOL XRPLIST Scan @ Lookaside List 46-SEP-1984 93:53:22 CLIUTL.SRCJSHOMEMORY .MAR; 1 - 8, 
| 3 1180 . SUBTITLE POOL _XRPLIST Scan a Lookaside List 

98 11 3¢ 
38 1 § : Functional Description: 
98 1184 : This routine counts the number of free blocks on the lookaside 
38 1 5 : List pointed to by the input parameter. 
238 1 $ : Calling sequence: 
398 1 : ; CALLS #1,POOL_IRPLIST 
i: 119 : Input parameter: 
398 1198 ; XRPFL (AP) Listhead of doubly Linked List 
ope 1132 : Output parameter: 
598 1199 ; LOOK_*REE_COUNT Number of free blocks in this List 
a8 1138 
4 } ’ BEGIN_LOCKED_CODE: ; The following code executes above IPL 2 
98 (1 5 LOK er ST: 
a «| 98 1 «WORD “M<R2,R3> ; Save some registers 
52. 04 AC 9D 1204 MOVL  XRPFL(AP),R2 ; Get address of forward Link 
SA1 1205 DSBINT G*EXESGL_NONPAGED :; Set IPL for pool access 
O00E 30 Hd : 0? Poe tat SCAN_DOUBLY_LINKED_LIST ; peut moor oF Becks in list 
Py nadie interr Ss 
eect 53 0 0581 1208 MOVL R3,LOOK_FREE_COUNT ; Store number of free blocks 
0 01 3c 0588 1209 MOVZ2WL #55$_NORMAL RO 
0588 1210 RET 
~ 058C 1211 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


} nai 
d. 5 
MORY = SHOW MEMORY RESOURC 15-SEP-1984 23:43:23 VAX/VMS Macro v04-00 P 
be SCAN DOUBLY LIMEED LIST Scan doubly Link ‘-sepaione SS:dtzce Fel iUte eae seHtmcmowy.man:1 2% 2%, 
+} ! ‘ SUBTITLE SCAN_DOUBLY_LINKED_LIST Scan doubly Linked List 
Bc (1 3 
+! : § : SCAN_DOUBLY_LINKED_LIST Scan a of fixed-sized blocks 
Bc 1 8 ; This routine scans a Cont? linked ryt ” fixed-size blocks and 
+3 : 3 3 returns the number of blocks in the List. 
3a¢ 1 ; Calling sequence: 
38¢ § ; BSBW © SCAN_DOUBLY_LINKED_LIST 
$8 : 5 : Input parameter: 
38¢ 5 : R2 Address of Listhead for List 
+! : : : Output parameter: 
38¢ 1; R3 Number of blocks in List 
58C ‘ > Side effect: 
4! : 5: The contents of R1 are modified 
5ac (1 $ : This routine assumes that the caller has taken whatever synchronization 
O58 ; ; measures are necessary for the pool area being scanned. 
SBC 1240 ° 
F345 1241 SCAN_DOUBLY one. LIST 
33 D4 058C 1 ¢ cieC ; Set counter to zero 
51 dO B2e6 124 MOVL R2,R1 ; Make a working copy 
51 é1 DO O5C1 1244 108: mov.  (RI),RI ; Get address of next block 
52.51 D4 541245 CMPL =e R'1, RO : At end of List yet? 
04 13 05¢7 1 46 BEQL 20$ ; Equal implies end of List 
3 6p6 «605C9:) «(124 INCL & ; Indicate another block 
FS pete : $8 BRB 108 ; and go get the next one 
05 ase 1250 208: RSB ; Return to caller 
SCE 1251 


—————————————_—__-—_—— 
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0000009¢ "EF Ons‘ eF 
14 BEF 


51 0000009C EF 
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10$: MOVAL LOOK 
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= SHOW MEMORY RESOURCES 15-SEP-1986 23:43:23 VAX/VMS Macro v04-00 © 
PLAY LOOK Outpur Restine for Lookasié ‘Zq-tepcions SBrst:ke Lee tUTe ene Stunner .nans1 OM? 29, 
- SUBTITLE DISPLAY_LOOK Output Routine for Lookaside List Displays 


+ 

Functional Description: 
This routine performs the common output and display functions for 
the three fixed-sized eynante memory areas. The routine decides 
whether a normal or full display is requested. 

Calling Sequence: 
BSBW DISPLAY_LOOK 

; Input Parameters: 

4 Size of packets in this list 


R3 Address of three-longword array containing information 
that describes the initial and maximum sizes of the List 


; Implicit Input: 
; Setting of MEMORY _V_FULL bit in MEMORY_L_BITLIS 

; Contents of cells in FAO parameter List for lookaside List displays 
; Output Parameters: 

; Several cells in FAO parameter List for lookaside List displays 


LOOK_LIST_SIZE Size in packets, bytes, and pages 
LOOK_FREE BYTES /FULL display only 

LOOK" INUSE_COUNT 

LOOK_INUSE_BYTES /FULL display only 

LOOK _BLOCK_SIZE Passed into this routine in R2 


Implicit Output: 


Displays of usage statistics for specified lookaside List 
are written to SYSSOUTPUT. 


DISPLAY_LOOK: 
“MOVL R2,LOOK BLOCK SIZE ; Store block size in parameter list 
SUBL3 LOOK_FREE_COUNT,LOOK_LIST_SIZE,LOOK_INUSE_COUN 
BBS #MEMORY V_FULL MEMORY L_BITLIS,10$ ; Was /FULL specified? 
TYPEMSG SHOWS_MEM_LOOK2,SHOW_COOK_LIST ; No. Type normal display Line 
RSB ; and return to caller 


; Store address of size array 
; Convert packets to bytes and popes 
; Convert free packets to free bytes 


LIST E 
BSBW CONVERT_P I 
a . ; Convert packets in use to bytes in use 
K 
E 


MULL Re, (R1)F 


= 


MER FULL1,SHOW_LOOK_LIS ; Display name of List 
TYPEMSG SHOWS" MEM “FULL2,SHOW_LOOK-LIST2 ; Display current size 
MOVAL LOOK_CIST“NAME7R1 ;"Use First four parameters again 


ao 
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ys 
$ MORY = SHOW MEMORY RESOURCES 15-SEP-1984 23:43:23 YAX/VMS Macro Vv04-00 Pa 3 
yOu 00 DISPLAY_LOOK Output Routine for Lookasid 4-S p-19be 3:37:02 Yer TUTE SRCISHOMEMORY. MAR; 1 a ( 


MOVL Hy ese + 
MOV 


1 | 
1) | 
Store SYSGEN parameter name 
and initial size | 


VL 
BSBW VERT. PACKET._¢ Convert packet count to bytes and pages 
TYPEMSG eat KAULLS, 5 s¥3 U . 


1 

13] 

131 cist ST How LOOK_LIS ; Display initial size 
$1 0000009¢" 131 MOVAL "Reset size array rostnee 

135146 peut : Store maximum size 

1315 BSBW ee ba ACKET : Convert ackets to bytes and pages 

! 1 TYPEMSG SHOWS_MEM_LOOK_ “Fotte, SHOW. LOOK_LIST4 3 Display maximum size 

1 18 TYPEMSG SHOWS_MEM_LOOK_FULLS,SHOW_LOOK_LISTS ; Display free space 

131 TYPEMSG SHOWS_MEM_LOOK_ FULL Fi ay *LOOK=L LISTS :; Display space in use 

1 9 TYPEMSG SHOWS “MEM LOOK LOOK “LIST ; Display 5 ock size 

: TYPEMSG SHOWS— ~MEM_ LOOK “Futt. SHOW: + OOK “LISTS ; Display lower Limit 

1 j RSB 

1324 


SR a Sh rea ARES aes CA area Poe a tes ee ae 


eer 
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= SHOW MEMORY RESOURCES 15-SEP-1984 23:43:23 VAX/VMS P 
CONVERT _PACKET fount ae Packets to a-3 Pa} 984 33:57:82 LEE UTL, SRETSHOREMORY MAR: 1 ve #4; 


§ - SUBTITLE CONVERT _PACKET_COUNT Convert Packets to Bytes and Pages 


e 


Functional Description: 
This routine Copeerte @ packet count and a packet size to a byte 
count and the minimum number of pages required to hold that 
number of bytes. 

Input Parameters: 
R1 Address et 3-longword array of sizes 
(R1) Number of packets 
R2 Packet size 

Output Parameters: 


4(R1) Byte count (packets * packet size) 
8(R1) Page count necessary to contain byte count 


Implicit Output: 

R1 points at the next longword after the page count 
Side Effects: 

RO is destroyed by this routine 


oOo Be Oe Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se Ge Se Se Se Se Se Se Se Se Se 


ONVERT_PACKET_COUNT: 
81 2 5 MULL R2,(R1)+,(R1) :; Convert packets to bytes 
1FF BF 1 ADDLS #511, (R15+,R0 ; Round up to next page boundary 
F be oom #-9,R0, (RIS+ ; Convert bytes to pages 


a se ss a ss ts a a ss ss bn ts ss a ss ss a ts > ss a tt 
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H § 
zor jaa ESE TERECIMM BESTE AE 


-SBTTL SHOW POOL USAGE 
SHOW PAGED AND NON-PAGED POOL USAGE 


THIS CODE MUST NOT PAGEFAULT WHILE AT ELEVATED IPL; THEREFORE 
1T_ (AND hg ITEMS IT REFERENCES) ARE LOCKED IN THE WORKING 


ro v04-00 P 33 
CLIUTL.SRCJSHOMEMORY.MAR:1 * (1) 


wn 
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SET PRIOR THE ROUTINE BEING CALLED. 

THIS ROUTINE DISPLAYS THE TOTAL NUMBER OF BYTES IN EACH POOL, 

THE NUMBER OF BYTES IN USE, AND T R OF FREE BYTES. 

THE NON=PAGED POOL IS SUBDIVIDED INTO THE FIXED LENGTH LOOKASIDE 

biats AND in VARIABLE“LENGTH SEGMENTS. THE FIXED LENGTH NON-PAGED 
L IS SUBDIVIDED INTO IRP PACKETS AND BIG BLOCKS. 


-WORD “M<R2> : Save R2 
BBS #MEMORY_V_VULL,MEMORY_L_BITLIS,10$ ; Skip header in full display 
TYPEMSG SHOWS_MEM~POOL 1 ; Print header Line 


; Get variable Length nonpaged pool statistics 
SCMKRNL_S ROUTIN=POOL NPAGEDYN 


MOVAW “L°NPAGEDYN DESC.L*POOL NAME 
eres L“BYTES_ SIZE DESC,L*POOL_SIZE 


0004 
OF OOOOOOOS*EF 04 £0 


— 
oO 
wn 


Scan the list ... 
add a name identifier, 
and a size identifier. 


00000070°EF 00000000'EF E 
00000074 ‘EF F°EF E 
00000000 * GF 


OONAVUE WN O OONAUE WO 0O@ 


7E 1FF &F ce #°X1FF ,G°MMGSGL_NPAGNEXT,-(SP) : Get current end of pool 
50 BE "GF § SUBL3 G*MMGSGL_NPAGEDYN, (SP)+,RO Compute size of nonpaged pool 
1 A MOVZBL #1 Indicate nonpaged poo 
01 30 BSBW  DISPLAY_POOL and print this information 


: Get paged pool statistics 


euwn— 


a a a ka ia na a a et ee ss = 2 a = = as as 2 ab ss 2 2 a 


SCMKRNL_S ROUT IN=POOL_PAGEDYN ; Scan the List ... 
00000070°EF  00000025'EF E 95 MOVAW “L“PAGEDYN_DESC,L“POOL_NAME : add a name identifier, 
oooonors “Ee 0000007C EF 3 9 MOVAW L“PAGEDYN-SIZE DESC,L*POOL_SIZE ; and a size identifier. 

0 eeeaeeedl D 9 MOVL G*SGNSGL_PAGEDYN,RO ; Get total pool size 
2 4 9 CLRL 3; Indicate not nonpaged pool 
O14A 0 9 BSBW DISPLAY_POOL 3 _and print the information 
04 401 RET ; That's all for SHOW MEMORY 
4 § ; Get statistics for process allocation ae if /MEMORY qualifier 
: 3 was specified to the SHOW PROCESS comman 
405 SHOWSPRCALLREG:: 
0004 4 -WORD “M<R2> ; Save ygiettie register 
00 00000008 ‘EF 04 E2 4 igh #MEMORY_V_FULL MEMORY L BITLIS, 0$ : ways a full display 
4 3 208: CMKRNL_S ROUTIN=POOL_PRCALLREG  ; Scan the List ... 
70°EF A‘EF E 4 MOVAW “L“PRCALLREG DESC,L“POOL_NAME ; add a name identifier, 
SOOLOONS “Ee OOOO6F ‘EF E $19 Ad my AL SIZE DESC.L“POOL_SIZE : and a size identifier. 
0 "GF ‘ 41 MOVZWL G*SGNSGO_CTLPAGES,RO ; Calculate total size 
5 tig ASHL #9,R0,RO0 ; Convert to bytes 
2 4 41 CLRL R2 : Indicate not nonpaged pool 
010A 0 414 BSBW DISPLAY_POOL : and print the information 
50. (01 C 415 MOVZWL #SS$_NORMAL ,RO ; Signal success 
4 41 ET ; Return to caller 
41 
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an Nonpaged Dynamic Memo 4-S Pa} 984 33:57:22 CLIUTL.SRCJSHOMEMORY .MAR; 1 - (1) t 
-SUBTI” © POOL_NPAGEDYN Scan Nonpaged Dynamic Memory 
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POOL_NPAGEDYN Scan Nonpaged Dynamic Memory 
This routine scans nonpaged pool and returns current usage information. 
_ Calling sequence: 
CALLS #0,POOL_NPAGEDYN 
Input parameters: 
EXESGL_NONPAGED Listhead of paged pool 
Output parameters: 


POOL _ TOTAL Total amount of space set aside for this area 
POOL _FREE Total amount of unallocated (free) space 
POOL _ I NUSE Amount of space currently in use (TOTAL = FREE) 


POOL _FREE_COUNT Number of discontiguous free blocks 
POOL_MAX_BLOCK Size of largest contiguous area 
POOL_MIN_BLOCK Size of smallest unallocated block 


POOL _NPAGEDYN: 
.WORD 


OR “M<R2,R3,R4,R5,R6,R7> ; Save some registers 

MOVAL G*EXESGL-NONPAGED,R2  ; Get nonpaged pool Listhead 

DSBINT (R2)+ ; Set IPL for pool access 

BSBW SCAN_SINGLY_LINKED_LIST ; Get free space, minimum, and maximum 

ENBINT : Allow interrupts 

MOVL R3,POOL_FREE_COUNT ; Save total number of free blocks 

MOVL R4,POOL_FREE_LEQU_32 : count of blocks 32 bytes or smaller, 

MOVL R5,POOL_FREE ; total number of free bytes, 

MOVL R6,POOL_MAX_BLOCK ; size of maximum block 
R7,POOL_MIN_BLOCK : and size of minimum block 


MOVL 
mOVZUL #S5$_NORMAL7RO 


+ 
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ces 15-SEP-1984 23:43:23 VAX/VMS Macro v04-00 
‘heal Dynamic Memory 4-5$ set 33:57:22 CLIUTL.SRCJSHOMEMORY MAR: 1 


- SUBTITLE POOL _PAGEDYN Scan Paged Dynamic Memory 


POOL _PAGEDYN Scan Paged Dynamic Memory 
This routine scans paged pool and returns current usage information. 
Calling sequence: 
CALLS #0,POOL_PAGEDYN 
Input parameters: 
EXESGL_PAGED Listhead of paged pool 
Output parameters: 


POOL _ TOTAL Total amount of space set aside for this area 
POOL _FREE Total amount of unallocated (free) space 
POOL _ INUSE Amount of space currently in use (TOTAL = FREE) 


POOL _FREE_COUNT Number of discontiguous free blocks 
POOL_MAX_BLOCK Size of largest contiguous area 
POOL MIN_BLOCK Size of smallest unallocated block 


POOL _PAGEDYN: 
«WORD “M<R2,R3,R4,R5,R6,R7> ; Save some registers 
SAVIPL ; Save current IPL 
MOVAB G*EXESGL_PGDYNMTX,RO ; Get address of paged memory mutex 
MOVL G*SCHSGL CURPCB,R4 ; Get current process PCB address 
#*A<RO,R4> ; Save these for UNLOCK call 


G*SCHSLOCKR ; Lock paged pool data base 
333 returns at ASTDEL 
MOVAL G*EXESGL_PAGED,R2 si: Get header Link for free List 


OOL_FREE_ COUNT ti:7 Save total number of free blocks 


MOVL ;POOL“FREE-LEQU_32 ::; count of blocks 32 bytes or smaller, 
MOVL R5,POOL_FREE 333 total number of free bytes, 

MOVL R6,POOL_MAX_BLOCK 333 size of maximum block 

MOVL R ,Poo MIN~BLOCK ii: _and size of minimum block 

POPR #*M<RO,R4> z3; Restore mutex address and PCB address 
JSB G*SCHSUNLOCK zi: Unlock the data base 

ENBINT 323 Return to original IPL 

MOVZUL #SS$_NORMAL ,RO : Return SUCCESS Status to caller 


Bseu scan SINGLY _LINKED_LIST ;;; Get free space, minimum, and maximum 
Rd. 
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can Process Allocation R 4-SEP-1984 CLIUTL.SRCJSHOMEMORY .MAR; 1 
- SUBTITLE POOL_PRCALLREG Scan Process Allocation Region 


POOL_PRCALLREG Scan Process Allocation Region 


This routine scans the process allocation region, a process-private 
pool area in Pl space, and returns current usage information. 


Calling sequence: 

CALLS #0,POOL_PRCALLREG 
Input parameters: 

CTLSGQ_ALLOCREG Listhead of process allocation region 
Output parameters: 


POOL _ TOTAL Total amount of space set aside for this area 
POOL _FREE Total amount of unallocated (free) space | 
POOL _ INUSE Amount of space currently in use (TOTAL = FREE) | 


WWW NIAAA IAI POPUP 
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POOL_FREE_COUNT Number of discontiguous free blocks 
POOL_MAX_BLOCK Size of largest contiguous area | 
POOL_MIN_BLOCK Size of smallest unallocated block 


P 


OOL_PRCALLREG: 
WO 


SHDSHO SOOO OOOO OOO OD 


OOF C 
52 00000000'9F 
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i 
RD “M<R2,R3,R4,R5,R6,R7> =; Save some registers 
DE MOVAL @MCTL$GQ-ALLOCREG.R2 ; Get Listhead for this pool area 
44 DSBINT #IPL$_ASTDEL ; Prevent ASTs while scanning this List 
002A 30 084A SBW  SCAN_SINGLY_LINKED_LIST ; Get free space, minimum, and maximum 
4D ENBINT ; ASTs are OK now 
*EF 36C« 29 L R3,POOL_FREE_COUNT ; Save total number_of free blocks 
"EF D $2 MOVL R4,POOL_FREE_LEQU_32 : count of blocks 32 bytes or smaller, 
80°EF 5 OD 3 MOVL R5,POOL_FREE ; total number of free bytes, | 
aa 8° EF 2$ Dd 6 MOVL RG POOL FAX BLOCK ; size of maximum block 
me 1 $6 MOVL R7, POOL _MIN_BLOCK : and size of minimum block 
0 01 3 MOVZ2WL #SS$_NORMAL-R 
8 RET 
087 
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you-008 SCAN_SI a’ ee tist Scan memory-orde Paes et 33:57:22 LCE TUTL. SREISHOMEMORY MAR: 1 er tt) 
- SUBTITLE SCAN_SINGLY_LINKED_LIST Scan memory-ordered List 


Functional Description: 
This routine scans a memory-ordered singly Linked List of blocks and 
returns the total amount of free space , the number of free blocks, 
the number of free blocks 32 bytes or smaller, and the sizes of the 
largest and smallest blocks. 

Calling sequence: 
BSBwW SCAN_SINGLY_LINKED_LIST 


Input parameter: 


R2 Address of Listhead for pool area. 
Output parameters: 
R3 Number of distinct free blocks 
R4 Number of free blocks 32 bytes or smaller 
R5 Total amount of free space 
I Size of largest block 
fe Size of smallest block 


This routine assumes that the caller has taken whatever synchronization 
measures are necessary for the pool area being scanned. 


SCAN_SINGLY een |. sani 
CLR R 


8 OOO OOOO NINN NN 2 
SM 89 OVW 1D ON 
< 


OOO COO OOOO OO OW WWW OO INI NINN NNO OO 


SOOOCSCOOSCOOSOOSOSOOSOOSOOOCOSOOOCOOOOOCOOSOOOOOOO OOOO OOOOOOOOOOOOOOOO 
i a a a a ee ee ee a a a a dd 


53 7C LRro 3; Clear two free block counters 
55 7C¢ CLRQ ; Set sum and maximum to zero 
rH i) MCOML #0,R7 3 Set minimum to “infinite” 
y © i) VL (R32) ,R2 3; Get contents of first block 
¢ 1 BEQL 40$ : If zero, then pool is empty 
D 10$: INCL R3 : Count another free block 
55 04 ae C ADDL2 4(R2),R5 3; Count this block in sum 
04 A2 2 D1 CMPL #32,4(R2) : Is block 32 bytes or smaller? 
2 1F ¢ BLSSU- «158 : Branch if larger than 32 bytes 
4 06 INCL RG 3: Otherwise, count another ‘'small"* block 
56 04 A201 15$:  CMPL  4(R2),R6 : Is this block bigger than maximum? 
04 8 5 BLEQU 208 : Branch if not bigger 
2$ 6% D 9 § MOVL 4(R2),R 3; Otherwise, record new maximum 
A201 208:  CMPL 4(R2)-:R : Is this block smaller than minimum? 
04 if oF 3 BGEQU§ 30% : Branch if not smaller 
57 O4A D Al MOVL 4(R2),R7 ; Otherwise, record new minimum 
52 6 dD 5 10 30$: MOVL (R2),R2 : Get next block 
) 1 A8 11 BNEQ 10$ 3; Go back to top of loop if more 
0 eas \ RSB ; Return to caller 
AB \ ; This pool area is empty. Set minimum size to zero. 
57 Be AB 16 40$: CLAL R7 : Set minimum to zero 
5 AD 1 RSB ; Return to caller 
A 


END_LOCKED_CODE: ; End of code that executes above IPL 2 


ee ee KE LL LLL ee eee ee RR Re RR RR RR RR Re ed ee ee ee ee 
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«SUBTITLE DISPLAY_POOL Output Routine for Dynamic Memory Displays 


+ 
Functional Description: 
This routine performs the common output and display functions for 
the three variable sized Gyneaie memory areas. The routine decides 
whether a normal or full display is requested. If a full ores ey 
is being produced, and thnonpaged dynaimc memory is the area being 
displayed, two additional lines of output are produced. 
Calling Sequence: 


BSBW DISPLAY_POOL 


POOL2,SHOW_POOL_LIST’ ; No. Print normal display 
3; and return to caller 


3: A full display was requested in the SHOW MEMORY command 


10$:  TYPEMSG SHOWS_MEM_POOL_FULL1,SHOW_POOL_LIST 
TYPEMSG SHOWS"MEM"POOL ~FULL2.SHOW-POOL ~LIST2 


& 
TYPENSG SHOWS_MEM 


16 ¢ 
16 
1624 ; 
ne 
16 : ; 
16 ; ; 
1630 ; 
ie 
16 4 ; 
1634 ; 
OBAE 1636 | 
yy 1 ; ; Input Parameters: | 
SAE 1639 : RO Size in bytes of area being displayed 
OBAE 1641 : R2 Nonpaged pool indicator 
OBAE 1906 3 R2<0> = 1 => nonpaged dynamic memory | 
| 1947 3 R2<0> = 0 => Some other area than nonpaged pool | 
Baae 196? : Implicit Input: 
OBAE 1647 : Setting of MEMORY_V_FULL bit in MEMORY_L_BITLIS 
Ooac 1085 ; Contents of cells in FAO parameter list for pool displays 
| 193) : Output Parameters: 
OBAe 1888 ; Several cells in FAU parameter List for pool displays 
OBAE 1655 ; POOL_TOTAL 
OBAE 1656 ; POOL“ INUSE 
oe 162? : POOL_TOTAL_PAGE (full display only) | 
BaAe 1923 : Implicit Output: 
QOBAE 1661 : Displays of poot statistics for specified pool area are written 
OBAE 1908 3 to SYSSOUTPUT. 
SBaE iene 
1665 DISPLAY_POOL: ; 
sama $4 3834 50 og 1006 MOVL RO,POOL_TOTAL 3; Store pool size in FAO parameter List 
00000084 ‘EF 0 Q0000080'EF C 166 SUBL P i FREE .RO.POOL_INUSE 3 INUSE = TOTAL = FREE 
50  O00001FF BF £9 16 3 ADDL #511,R ; Round size to next page boundary 
oooo0o7c*EF 50  F7 BF 8 16 #-9,R0,POOL TOTAL PAGES ; Convert to page count Peal 
14 00000008 ‘EF 04 HF ? #MEMORY V_FOLL MERMORY_L BITLIS,10$ ; Was /FULL specified? 
16 
16 g 
1674 
167 
1879 
1678 


SO OSeceGe ce deca ce cocege 
=—OmMmmmnnoIoOOoW>>y 
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DISPLAY_POOL Output Routine for Dynamic 4-SEP-1 


EF ae 
wo Hares Saf 
SOT SRR E 


Chtune a REIS SHOMEMORY .MAR; 1 
; Skip next two displays unless nonpaged pool 
BLBC 
MOVL 
ADOL3 


POOC_TOTAL,RO ound up to next page boundar 
RO TOTAL (3°S0u Convert to pages A - 


5 MSG S ia) Evin Padi d 

§ MOVL ge sit sober MAPA Ev “TOTAL Get maximum pool size 
- ty fs COOL OT OTAL paces | : Round up to next tes emcengt. 

TYPENSG $nOUs OnER. POOL _FUCL4, SHOW_rOOL_LIS 


208: TYPEMSG SHOWS _MEM_POOL_FULLS,SHOW_POOL_LIS 
¢ TYPEMSG SHOWS_MEM_POOL_FULL6,SHOW_POOL “is 
? oo SHOWS" MEM_POOL— FULL ; SHOW POOL-LIS 
5 


R2,20 
ities NPAGEDYN ,POOL_ ey - ; Get initial pool size 


; Display usage data 
; Display upper bound 
Displ 


T 
T 
T 
T ay lower bound 


a dd 
FPAAOAPOPAAAASAAAAOAS 


:"Return to caller 


SEP-1984 3 YAX/VMS Macro v04-00 P 
i? Pesta File Statistic yet itt t 33:37 ‘ta LC iUTL. SREISHOMEMORY. MAR; 1 — 


- SUBTITLE PAGEFILE = Display Paging File Statistics 
Functional Description: 


ay bert a the size of each 


Input Parameters: 
None 

Implicit Input: 
SGNSGW_SWPFILCT Maximum number of swap files that can be installed 
SGNSGW_PAGFILCT Maximum number of paging files that can be installed 


Setting of MEMORY V_FULL bit in MEMORY_L_BITLIS controls the 
amount of solerualttiin displayed for each” file. 


Output Parameters: 
None 
Implicit Output: 
Paging file usage information is displayed on SYSSOUTPUT 


0 
4 
0 
4 
§ PAGEF ILE: 
0 - WORD ny R3,R4 »R7> Save some registers 
1 MOVZWL GN$Gu_ SWP + SWAP_E Fite _COUNT 
¢ v2W AG 

ADDL3 PAGE _FILE_C 
4 EMUL R2,@PFL wk. T 
5 PUSHAL PFL_TABLE_ADD : Set up sonanel List for LIBSGET_VM 
§ TABLE $12 ; Point to requested sheen size 

SGET_VM : Allocate a scratch a 

: ; Abandon display if poy spece available 
0 
4 
0 
1 
2 


PUSHAL PFL-TABL 
CALLS 4% *L18$6 
BLBS RO,5$ 
RET 


$: SCMKRNL_S GET_PFL_DATA : Epyher data from nonpaged pool 
BLBC ree if eevee occurred 
BBS #MEMORY_V_FULL ,MEMORY_L Ariti8, : Was /FULL specified? 
TYPERSG SOUS _MEM_PAG Ef print. Sooaet Line - normal display 
BRw 40$ ‘S to page file loo 


Allocate two arrays of words for each paging and swap fea Lod Veet 
we can keep a@ count of how many processes are paging and swapp 
into each file. Word arrays can be used because of the VMS ape ectural 


Limit of 32767 processes. 


>>>>r>r>rrrr> 


a ee 


>> Pr rr PP VOOU 


; R2 = PAGFILCNT + SWPFILCNT 


i 
| 
| 
| 
| 


a“ 
—o 


OOOOOOES*EF O08 14 A7 
OOOOOODC*EF 18 A7 


OQOOOOOES*EF O00000DC ‘EF 
OQO0000E0* EF 


MULL3 PFLSL_BITMAPSIZ(R7) ,#8,PAGE_TOTAL 
; Get total number of pages 
MOVL PFLSL_FREPAGCNT(R7) ,PAGE_FREE 
; Get number of free pages 
SUBL3 PAGE_FREE,PAGE_TOTAL .PAGE_USED 


o gs 
wo 


o 

w 
>>> 
total 1 $$$ 
soon "WS 


$ RORY = SHOW MEMORY RESOURCE 15-SEP-1984 23:43:23 VAX/VMS Macro v04-00 Pa 4 
Oe 005 PAGEFILE = Display te File Statistic 4=SEP-1984 33:57:22 CLIUTL.SRCJSHOMEMORY .MAR; 1 = 7) 
51 7 A2A 1753 108: ASHL #2,R2,R1 ; R1 = size of table in bytes 
bi ef @ A f 1} 4 SUBL at: ; Allocate the array on the stack 
Mere” ede SE BASS 118g Rovay {GASEREDTAAEETPTLE, roast’: State aaarese or paging file rate 
6€ 6E id nig i 5 moves ad. CaP) io eis :'lero the tables — 
A466 1 § ; Now use the wild card mode of SGETJPI to count the number of processes 
“ay 1769 ; paging and swapping into each paging and swap file. 
res 1762 208: SGETJPI_G GETJPI_LIST ; Call SGETUPI 
2—€ 50 €9 OA 1388 Bt R0,3 ; Skip next if error occurred 
: A5& 1764 WAITFR_S rt | ae ; Wait for ae bea. to complete 
1€ 94'EF 9 OASD 1765 BLBC GETJPI_STATUS,350$ ; Skip next if error occurred 
50 BF EF A O0A64 1206 MOV PAGE_FILE_INDEX,RO ; Get page file index for process 
FF4O 6 OA 176 INC @PAGE_FILE TABLECROJ 3; Bump appropriate counter 
50 93°EF A OA 1708 MOVZBL SWAP_FILE INDEX,RO ; Get swap file index for process 
"FAO BG OATS 176 INCW  @SWAP_FILE_TABLECRO] ~ ; Bump appropriate counter 
C4 - 444! BRB 20$ ; Back to top of loop 
O9A8 BF 50 B81 OA 177e 30$: CMPW 80 #SS$_NOMOREPROC ; This error code is loop breaker 
BD 12 OA ; 1773 BNEQ 208 : Go back for more if different error 
- , 17 3 Now scan page and swap file array and display information about each file 
57 278°EF DO OABD 1777 40S: VL PFL_TABLE_ADDR,R7 ; R7 will step through scratch 
50 OT 67 C1 ORO 1778 SOS: ADDL (RIT LAT CRO iit 
3 1¢ A964 «(1779 BNEQ 55$ ; Continue if not - 
O1llF = 3 Dass 1781 BRw 90$ ; Equal to -1 implies end of loop 
0109 30 OA99 1782 55$ BSBW GET _FILE_NAME i; Translate FID to file name 
000001F F 'EF 83 bas 17 : TSTW = FALE _NAME_DESC : 
TA AA2 1784 BEQL 56$ ; Error returns null string 
52 te 00 1785 MOVL FILE_NAME _DESC+4,R2 3 
SF BF 91 17 § CMPB Os #*A/—/,(R2) ; If name returned contains 
OF i 17 BNEQ 568% : a leading underscore 
OOOOOTFF ‘EF 8 1788 DECW FILE_NAME_DESC ; Then strip it out 
62 01 A2 OOO00IFF'EF 28 1789 MOVC3 FILENAME-DESC,1(R2), (R25 
1790 56$: : 
1791 
1736 
179 
1794 
1795 
AE 1796 ; Get nyaper of pages in use 
47 00000008"EF 04 €0 net 1797 BBS #MEMORY_V_FULL .MEMORY_L_BITLIS,70$ ; Was /FULL specified? 
AE9 1799 ; Either of these next two TYPEMSG calls is used for a normal Steptag 
AE9 1800 ; of a paging or swap file. If the file name and the usage data can fit 
AE9 1801 ; on a single Line, a one-line display is used. Otherwise, the file name 
m4 ! § ; is displayed on one Line and the usage data is displayed on the next. 
28 OOO00IFF°EF 81 OAE9 1804 CMPW = ss FLALLE_NAME_DESC,#SHOWSC_MEM_SHORT_NAME 
AFO 1805 ; QiLL fTle name fit on one Line? 
16 A OAFO 1 BGTRU 608% ; Branch if name does not fit. 
AF2e 1 TYPEMSG SHOWS _MEM_PAGEZ, SHOW PAGE LIST ; Print single Line display 
O00A6 51 05 1808 BRW 0$ ; Go to common end of loop 
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S 
PAGEFILE - Display ys File Statistic "R828 7:21:44 (CCLIUTL. sR REIS SHOMEMORY .MAR; 1 ) 


60$: TYPEMSG SHOWS_MEM_PAGES,SHOW_PAGE_LIST ; Print first of two Lines 
TYP pense grows MEM~PAGE4S , SHOW_ pan LIST : Print second of two Lines 
BRB to common end of loop 


; The next several poet A, calls are all used for a full display of 
3 each paging and swap f 
708: MOV PAGE _PFL_INDEX,R Retrieve PFL laden 
MOVZWL @PAGE_FICE_TABL 6].Pac FULL PAGING COUNT 
MOV we asuAr. FILE TABL SWAP _ COUNT 
TYPEM “hen m_PAG Utne a Hou PA AGE gt LIST ; Print file name 
TYP ns SHOu “MEM_PAGE_FULL2, ... Liste ; Print file size 
AL SG SHOWS_MEM_ UL L? ° HOW. PAGE Eat LIST ; Print free space 
YPEMSG SHOWS _MEM_PAGE-FULL4 LISTS ; Print file usage 
TYPERS¢ SHOWS — “MEM PAGE “FULLS: SHOW” PAGE “tists ; Display type of file 


808: ADDL2 #PFL_K_EXT_LENGTH,R7 ; Advance R7 to next slot in scratch area 
BRW 50$ ; and go back to top of loop 


MOVZWL #SS$_NORMAL ,RO ; Signal success 
RET ; and return 
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ther page file control bl 4-SEP-19 CLIUTL.SRCJSHOMEMORY .MAR; 1 (1) 
«SUBTITLE GET_PFL_DATA Gather page file control block data 
Functional Description: 
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This routine executes in kernel mode and copies all active PFL control 
oy he ts associated file name information to a scratch buffer 


Calling sequence: >>>> KERNEL MODE REQUIRED <<<< 


CALLS #0,GET_PFL_DATA 


Input parameters: 


MMGSGL_PAGSWPVC Pointer to array of PFL pointers 


PFL_TABLE_ADDR Address of scratch area into which all PFLs 
currently in use will be copied. 


; Implicit input: 


Data bases for 1/0 system and file system 


; Output parameters: 


Implicit Output: 


The contents of each PFL are copied from nonpaged pool to a scratch 
area. In addition, for each file the file ID is copied and the 
device name string is produced. 


The default paging and swap files do not have FCBs or FIDs 
associated with their WCBs. This information is communicated to 
user mode by storing a -1 in the PFL index field and placing the 
actual PFL index in PFL_W_FID_NUM. 


The two cases that can occur are as follows. 
1. PFL index is not negative 


This is the case for all paging and swap files except those 
installed by SYSINIT at boot time. 


Be PFL index is negative but FID_NUM is positive 


This is a primary paging or swap file installed by SYSINIT 
before the file system was eperet sen. The WCB does not point 
to a FCB and so the FID is not available. The contents of 
FID_NUM are the PFL index. 


The end of List is indicated b Placing a-1 in the first Longuord 
after the Last entry. his field contains the BITMAP address in a 
valid PFL so there is no ambiguity. 


; While the loop executes, the following register conventions are observed. 


De RS aS Rc ee St one eee Tee ee ee ey ee ee Se aa oe 
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vou-008 GET PFL DATA Gather poge file control bl a-sepalone S¥ist ica Fetture.caeieutmcmony.man:? 2% $3, 
R gages into PFL vector 
te ointer to ‘real’’ PFL in nonpaged 
R Pointer to WCB for this page - gh ay 


R 9 Pointer to extended tg n pereces area 
Pointer to PFL vector (of PFL pointers) in nonpaged pool 


FJ Be Se Ge Ge Ge Oe Ge 
& 

a 
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t om 


” “WORD @mcR2 


BRAN SSSANSArue F 


OFF R3,R4,RS,RE,R7,RB,RO,RIO,RI1> 
58 90090000" GE MOVL G*MMGSGL PAGSWPVC-R11 ‘; R11 points to top of PFL array 
A "EF MOVL PFL_TABLE_ADDR,R10 ; R10 points to start of scratch area 
6 06 CLRAL R6 3; R6 is the PFL index 
ry 684 Dd 108: MOVL (R11) CR6),R7 : gnd R7 points to the ‘‘real’’ PFL 
46 23 A? : BBC sPFLSV. INITED PEL SB FLAGS(R ),40$ ; Skip entire loop if not installe 
6A 67 2% 8 MOVCS #PFLSK"LENGTH gR ), tR10) ; Copy PFL to scratch area 
58 0 A? OD MOVL PFLSL_QINDOW(A7) RO : WCB address to RS 
AB 0D PUSHL WCBSL_ORGUCB(R8) ; Address of UCB for paging device 
444 ASSUME PFL_S_ DEVNAM LE 256 ; ASCIC size must fit in a byte 
7E 18 QA MOVZBL #PFC_S DEVNAM,-(SP) : Size of device name string buffer 
20 AA OOF 1 SHAB PFL_T_BEVNAM(R10 ; Address of device name string buffer 
00000C2C "EF 93 fe 1 CALLS #3. GET DEV. ; 
01 Fe 1 BLBS RO,15$ : If ERROR on getting device name 
1 eT ; Then Return error status to caller 
14 15$: 3; Else Continue 
55 18 “8 0 1 MOVL WCBSL_FCB(R8) RS 3 Now ast FCB address 
1 : BEQL 20% ; No FCB for default page or swap file 
; 3; Copy three words of File ID from FCB to scratch area for this PFL 


6 AA 24 as 8 MOVW =F CBSW_FID_NUM(RS) ,PFL_W_FID_NUM(R10) 
AA $ A 8 MOV FCBSW_FID_SEQ(R5) ,PFL_W_FID_SEQ(R10) 
A AA AS 6B MOVW FCBSW_FID_RVN(RS) ,PFL_W_FID RVN(R10) 
24 AA 56 ° MOVW R6,PFC_W_PFL_INDEX(R10)~; Store PFL index 
08 1 30$ ; Transfer to common end of loop 


3; The default paging or swap file has a -1 placed in the PFL index field 
3; and the PFL index is stored in the first word of the file ID. 


208: MCOMW 8 #0,PFL_W_PFL_INDEX(R10) ; Signal default paging or swap file 
MOVW R6,PFL_W_FID_NUM(R10) ; but make PFL index available 


30$: ADDL2 #PFL_K_EXT_LENGTH,R10  ; Advance to scratch area for next PFL 
40$: AOBLEQ G*MMGSGL_MAXPFIDX,R6,10$; Bump PFL index & check Limit 
; Quit when all PFL entries processed 


g 00 2 mCOML) «#0, (R10) 3; Indicate end of active PFLs 
0 01 C MOVZWL #S5$_NORMAL ,RO ; Signal success 
RET ; and return 
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- shou MEMORY apseunces 15=SEP- 
GET_DEV_NAME = Extract device name from 4-SEP- 


Functional description: 


string for the dev 

It handles the protocol 
Calling sequesnce: 

CALL GET_DEV_NAME ( UCB, 
Input Parameters: 


ucB REFERENCE addres 
BUFSIZ VALUE for size o 


Output Parameters: 


PPP PANNANAANNAN EPH PIPPI IH 4 
PEA AASASIIII ES BB 
WR — OODNOAVUELS WIN OOOO UE WO 


mi a aa a ak a a a a a et et = = a ss = 2 a a —s —s — 2s ss 


lock needed to do this and releases 


1986 $3:34:4¢ LOCIUTL. SReSSwomenony.nan:1 29° ¢f 


- SUBTITLE GET_DEV_NAME = Extract device name from UCB 


vate routine invokes IOCSCVT_DEVNAM and returns a counted ASCII 
n ce name str ng derived from a given a UCB. 


for obta mg, Se 1/0 Database resource 


before returning. 
>>>> KERNEL MODE REQUIRED <<<< 
BUFSIZ, BUFFER ) 


s of device unit control block (UCB) 
f device name buffer 


BUFFER REFERENCE address of buffer for the ASCIC device name string 


964 ; Define offsets from routine’s argument pointer: 
366 BUFSIZ = 8 

= 
$87 ucB = 5 
369 GET_DEV_NAME : 
970 -WORD “M<R2,R3,R4,R5> 
971 SAVIPL ; Save current IPL for later restore 
376 MOVL G*SCHSGL_CURPCB,R4 ; Get address of current process's PCB 
97 PUSHL ; Save argument for UNLOCK Later 
974 G*SCHSIOLOCKR ; Lock the 1/0 Data Base 
975 tz: Returns at ASTDEL 
378 MOVZBL BYFSEECAP) RG tz: Size of device name string buffer 
97 DECL R ii: Less one byte for count field 
378 MOVL BUFFER(AP),R1 iz; Address of device name string buffer 
97 INCL R} ii: Leave byte for count field 
980 MNEGL 1,R4 iz: Include node name only if in ciuster 
981 MOVL UCB(AP) .RS ii: Address of UCB for paging device 
9 § JSB G* 1OCSCVT_DEVNAM ii Produce device name string from UCB 
9 POPL RG 333 Recover currant process P(B 
984 MOva RO,-(SP) 3:3 Save status & length of dev name str 
985 . JSB 6*5CH$IOUNLOCK ii: Unlock 1/0 Data Base 
9 § mova (SP)+,RO iii Restore status & length of dev name str 
9 ENBINT 323 Restore previous IPL 
9 § LBS =—s_- RO, 158 :'If ERROR on getting device name 
9 CLRL ; Then Return zero length to caller 
44 15$: ave R1, @BUF FER(AP) ; Store length for ASCIC dev name str 
992 : 
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mom 


i 
ooo00r ser $2 9 move E pésc 
OoodoOre EF 2p ay OE 
QOOOOIFF'EF FF BF 
QOOO00ES*EF 24 A? 
28 108 
Q00002AB°EF 26 A 
00000000"6F 000002A0"EF i 
06, 50 CAD LBS ROSS 
OO00OIFF*EF — SoOOnSEE EF ‘Be , 
56 50 RO, 178 
000001FF *eF i 
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- SUBTITLE GET_FILE_NAME = Translate File ID to File Name 
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99 This routine translates a device string, a unit number, and a file ID 


of a pag ng or swap file into a name for that file. If the file in 
question is the er mary paging or swap file (file ID is not available) 
then a default f 


le name is constructed. 
Input Parameters: 

R7 Address of extended PFL in scratch area 
Output Parameters: 


FILE_NAME_DESC contains a string descriptor for the file name 
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ET_FILE_NAME: 
MOVZBL PFL_T_DEVNAM(R7) ,R2 3 Character count to R2 
R2,BEV1CE_NAM Store in descriptor 


Vv ; St 
MOVAB PFL_T_DEVNAM+1TR7) ,DEVICE_NAME_DESC+4 ; Store string address 
: Set file name size in descriptor that points to file name buffer 
ASSUME FILE_NAME SIZE LT 256 
MOVZBL #FILE_NAME_SIZE,FILE 
CVTWL = PFL_W"PFL_INDEX( 


MOVAW PFL_W_FID(R7) ,FID_TO_NAME 


(8 Ae Wo 4) 4 ae a a ss 


NAME _DESC ; Store buffer size 
R7) ,PAGE_PFL_INDEX 3; PFL index to FAO List 
Negative index implies default file 

» FI ; Store address of FID 

CALLG FID-TO_NAME_ARG_LIST-G*LIGSFID_TO_NAME : Convert FID to file name 
Check for error 

CLRL RETURN_LENGTH Display nothing if error 
RETURN_LENGTH,F ILE _NAME_DESC Store actual name length 
RSB ; and return to caller 
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The file names for the geging, and swap files installed by SYSINIT are 
om 


fabricated dynamically fr e device name and unit number. 


1. SGETDVI translates the device name to its logical equivalent. 
If this logical name has been deleted, the device name returned 
by SGETOVI is used in its place. 


2. Logical name SYSSTOPSYS is translated to form the first part of 
the directory string. 


3. The string "’SYSEXE]"* is added by hand. 


4. The string ‘‘PAGE’’ or ‘‘SWAP’' is added, depending on whether this 
is the primary paging or swap file. 


5. The string “FILE.SYS"’ is placed at the end. 


10$ $GETOVI_G GETDVI_LIST ; Get proper device name 
A ; Quit if error occurred 
TSTW FILE_NAME_DESC ; Did we get a LOGVOLNAM? 
NE ; Nonzero implies that we did. Use it. 
MOVC3 RETURN_LENGTH, DEVICE _NAME_ADDR,@F ILE_NAME_DESC +4 
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MMGSGL _PHYPG 
MMGSGW_BIGPFN 
MMGSGW _MINPF IDX 


_BESC 
PAGEDYN SIZE_DESC 
PAGE_F ILE_COUNT 
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arSEpa19 4 $3:57it2 CLIUTL.SRCJSHOMEMORY .MAR; 1 _ (1) \ 
PAGE _FILE_INDEX s FR 
PAGE-FIL = 0 f R 
PAGE FILE TABLE ® 
PAG =ELAG F4R 
PAGE _ FREE 43 m 
PAGE_FULL_PAGING COUNT FO R 
PAGE FULL SWAP_ COUNT 43 Q 
PAGE_INDIC DEST ABI R 4 
PAGE FFL INDEX E8 R 
PAGE- TOTAL E4 R 
PAGE_USED OR 
PARA_VMS CR 
PCBSC_STS s 4 
CBSL_wSSuP = 0 
PCBSV_RES = 00 9 
PFLSB_FLAG = 
PFLSK_LENGTH z 4 
PFLSL_BITMAPSIZ = $4 94 34 
PFLSL_FREPAGCNT = 0000001 
PFLSL—WINDOW = 0000000¢ 
PFLSV_INITED = 00000000 
PFL_K-EXT LENGTH = a Ee 
PFL-S-DEVRAM = 0000 18 | 
PFL_TABLE_ADDR 49) 78 R 03 
PFL_TABLE SIZE 0000274 R 03 
PFL_T_DEVRAM 000002C 
PFL-W"FID 0000026 
PFL-W~FID_NUM 0000026 
PFL-W-FID-RVN 0000002A 
PFL-W-FID-SEQ 0000028 
PFL-W-PFL- INDEX 0000024 
PFNSAB_TYPE eerenere xX 05 
PFNSAL_HEAD aeeeeeee =X = 05 
PFNSAX-FLINK aeeeeeee§ =X = 05 
PFNSC_BADPAGLST = 00000002 
PFNSGC_PHYPGCNT eeeeeeee =X 8605 
PFNSV_BADPAG = 00000005 
PHVSGC_PIXBAS eeneeeee§ =X 605 
PID 0000029C R 03 
POOL 00000608 R 05 
POOL _FREE 9900080 R 0 
POOL-FREE_COUNT 000 33 R 8 
POOL_FREE LEQU_32 0000094 R i 
reot-aar sities 8 
POOL “MAX_BLOCK 0 8 R 0 
POOL _MIN BLOCK B88 3 R 0 
=NAME 0 9 g 3 
POOL “NPAGEDYN 00007A8 R 5 
POOL _PAGEDYN OOO007E4 R 32 
POOL - PRCALLREG 0 a 
POOL"SIZE 4R 
POOL- TOTAL 78 R 
POOL” TOTAL_PAGES 3 a 
= 
PRCALLREG DESC 00 4A R 04 
RETURN_LERGTH $8 4F R 03 
RPBSC_MEMDSCSIZ = 08 
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RPBSS_TR 
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RPBSL_BOOTR 
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RPBSV_MPM 
RPBSV_PAGCNT 
RPBSV_TR 
RPBSV 
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SCRATCH_DESC 
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SHOWSC” MEM” SHORT _NAME 
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OOOOCOOCCOoOOCOoOoOoO 
POAT & Nt 


eeekeree GX 

SYSSGETJ eenrereee GX 
SYSSLKWSET eeeneeee GX 

YSSTRNL weeeenee GX 
SYSSWAITFR eeeeeere GX | 
TOPSYS_ DESC 00000008 R 
TRNLOGS_ACMOD = 00000014 
TRNLOGS_DSBMSK = 444g 
TRNLOGS_LOG = 00000004 
TRNLOGS_NARGS = 00000006 
TRNLOGS_RS = 0000000C 
TRNLOGS_RSLLEN = 00000008 
TRNLOGS_ TABL = 00000010 
TRNLOG_CIST QOOOODED R 02 
ucB = 0000000C 

CBSL_FCB = 00000018 | 
WCBSL_ORGUCB = 00000010 

PFL = 00000004 

Swe eee eT eer eee + 
! Psect synopsis ; 

PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000044 ( $F? 01 ¢ #1.) NOPIC USR CON ABS- LCL NOSH e RD WRT NOVEC BYTE 
SHOWSRODATA 00000109 <¢ $6 on bg { <3 NOPIC USR CON REL LCL NOSHR uc XE RD NOWRT NOVEC LONG 
SHOWSRWDATA 000002C ( ig} 03 ¢ -) NOPIC USR CON REL’ LCL NOSHR NOEXE RD WRT NOVEC LONG 
SHOWSMSG_TEXT OQOO00AC ( ¢i3 -) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR ee RD NOWRT NOVEC BYTE 
SHOWSCODE QOOOODSF ¢ 3471.) O05 ¢ 5.) NOPIC USR CON REL’ LCL NOSHR RD 


NOWRT NOVEC BYTE 
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Phase 


Initialization 1 
sonnege processing 


—- table sort 
Symbol table output 


Psect synopsis output 
Cross-reference output 0 
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VAK=-11 Macro Run Statistics 4-SEP-1984 1:21:44 (CCLIUTL.SRCISHOMEMORY.MAR;1 a) 
Assembler run totals 1069 060:00:33.70 00:01:54.65 


by verkivs 537 Atote wee 250 pages. 

14054 bytes poorer © virtual memory were used to buffer the intermediate ¢ 
re were 120 pages of symbol table space iy y to hold 2086 non-local and é local symbols. 
8 source 120 be were read in Pass 1, progyc ' ng.4 object records in Pass 2. 

49 pages of virtual memory were used to define 45 macros. 
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! Macro Library statistics ! 


Seamer sce Sees ee en ee nee on eenw a 


Macro seoocert name Macros defined 


REL BUTS 013k ty "1. -MLB;1 9 
sO L16.ML6 

:CSYSLIBISTARLET.MLB;2 4 
rbes5b0u att ‘Cibraries) 1 
2114 GETS were required to define 41 macros. 


on 


There were no errors, warnings or information messages. 
MACRO/L1IS=L1S$: SHOMEMORY/0BJ=0BJ$:SHOMEMORY MSRC$: SHOMEMORY/U-DATE=(ENHS: SHOMEMORY) +EXECMLS$/LI8+LIB$:CLIUTL/LIB 
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